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ABSTRACT 


Most  of  the  casualties  incurred  during  a  fire  are  due  to 
the  smoke  generated.  An  understanding  of  the  way  smoke  and 
fire  spread  during  a  fire  would  provide  a  valuable  tool  to 
save  lives  and  minimize  damage.  The  Naval  Research 
Laboratory  maintains  a  full  scale  test  facility  called  Fire- 
1.  The  computer  model  developed  in  this  thesis  is  based  on 
the  actual  geometry  of  Fire-1  and  uses  field  modeling.  I'c 
is  a  three  dimensional,  finite  difference  model  using 
primitive  variables.  The  model  includes  local  and  global 
pressure  corrections,  surface  radiation  ,  turbulence,  strong 
buoyancy,  and  conjugate  boundary  conditions.  Given  heat 
input  data,  the  computer  code  produces  pressure, 
temperature,  density,  and  velocity  fields.  Experimental 
fire  tests  conducted  in  Fire-1  are  used  to  validate  the 
computer  code.  Reasonable  agreement  in  the  results  has  been 
found.  Because  of  the  model's  ability  to  account  for 


pressure,  temperature  and  smoke  buildup,  its  envisioned  use 
is  to  predict  fires  aboard  ships  and  submarines. 
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INTRODUCTION 


A.  BACKGROUND 

A  fire,  particulary  in  a  closed  space  such  as  a  room, 
can  be  devastating,  especially  if  it  is  not  contained 
quickly.  The  danger  of  a  fire  lies  not  only  with  the  flame, 
but  with  the  toxic  gases  and  smoke  emitted  during 
combustion.  When  a  fire  ignites,  gases  leave  the  surface 
and  mix  with  air  to  burn  in  a  turbulent  plume  causing  a  hot 
layer  to  form  below  a  room  ceiling.  Unignited  objects  are 
being  heated  primarily  by  radiation  from  the  chemically 
reacting  flame  gases  and  incandescent  soot  and  to  a  smaller 
degree  by  actual  contact  with  the  hot  gases.  The  rate  by 
which  these  objects  are  heated  is  similar,  causing  them  to 
ignite  approximately  at  the  same  time.  When  this  happens, 
there  is  a  sudden  engulfment  of  the  room  in  flames. 

The  fire  safety  procedures  in  practice  today  are  a 
result  of  trial  and  error.  To  perfect  these  life  saving 
procedures,  a  detailed  understanding  of  the  fundamental 
phenomena  such  as  combustion,  heat  and  mass  transfer, 
gaseous  radiation,  and  the  flow  of  gases  must  be  obtained. 
With  this  understanding  incorporated  into  the  design  of 
enclosed  spaces,  it  is  hoped  that  the  probability  of 
ignition  and  fire  spread  is  kept  relatively  low.  And  should 
a  fire  break  out,  those  inside  should  be  warned  in  ample 
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time  in  order  to  extinguish  the  fire  quickly.  The  ultimate 
goal  is  to  keep  life  and  property  losses  at  a  minimum. 

The  phenomenon  of  a  fire  brings  together  heat  transfer, 
thermodynamics,  chemistry,  and  aerodynamics  plus  a 
dependence  on  the  geometry  of  the  space  in  which  the  fire 
occurs.  To  predict  the  nature  of  a  fire,  extensive  research 
is  required  to  find  out  how  fire  and  smoke  spread  throughout 
a  closed  space.  This  research  can  be  carried  out  either  by 
experimental  work  or  by  a  computer  model. 

Experimental  work  has  been  ongoing  in  the  area  of  fire 
research.  Because  of  the  many  phenomena  involved  in  a  fire, 
attempts  to  apply  scaling  laws  are  difficult.  Without  these 
scaling  laws,  the  use  of  small  inexpensive  tests  can  no 
longer  be  used  to  predict  what  will  actually  happen  in  a 
large  scale  fire.  The  alternative  is  to  conduct  full  scale 
tests  that  are  expensive  and  somewhat  dangerous.  Not  only 
one,  but  many  tests  are  required  to  ensure  the  reliability 
of  the  data  collected.  To  test  another  scenario,  the  test 
facility  would  have  to  be  modified,  which  is  again  both  time 
consuming  and  expensive.  The  physical  limitations  of  the 
facility  alone  would  limit  the  types  of  experiments  that 
could  be  performed. 

The  recent  advancement  in  computer  speed  and  storage 
capability  has  led  to  the  ability  to  solve  a  system  of 
complex  partial  differential  equations  that  was  difficult  to 
attempt  before.  The  various  phenomena  of  a  fire  are 


approximated  by  simpler  models  which  become  building  blocks 
that  can  be  expanded  to  eventually  model  the  fire 
accurately.  Present  day  computer  models  do  give  reasonable 
approximations  to  what  actually  happens  during  experimental 
fire  tests.  That  is  why  at  present  it  is  still  important  to 
verify  a  computer  model  with  an  experimental  test.  Once 
verified,  a  computer  model  can  then  be  modified  to  adapt  to 
a  number  of  scenarios  in  order  to  screen  for  the  one 
scenario  that  is  potentially  the  most  dangerous.  This 
scenario  can  be  further  explored  by  an  experimental  test. 
This  eliminates  randomly  chosen  scenarios  to  conduct 
expensive  tests.  The  computer  model  provides  additional 
information  unavailable  by  experimental  means.  For  example 
the  velocity  and  temperature  fields  at  various  time 
intervals  can  be  determined  and  plotted  to  see  how  a  fire 
spreads.  This  can  reveal  areas  that  require  additional 
experimental  data  collection.  The  computer  code  will  be  a 
very  powerful  tool  in  predicting  fires  in  other  facilities 
with  different  geometries  once  the  code  reaches  completion. 

Two  different  types  of  fire  modeling  procedures  have 
been  developed: 

1)  The  modular  or  zone  modeling  is  based  on  dividing  a 
compartment  into  distinct  regions  or  control  volumes 
[Ref  1].  Examples  of  these  are  as  follows,  fire 
plume,  hot  upper  layer,  heating  of  the  wall,  etc.. 
All  of  the  control  volumes  are  then  interrelated  by 
means  of  mass  and  energy  balances  across  the 
boundaries.  This  way  the  entire  field  is  described  at 
any  given  time  by  the  thermodynamic/ flu id  dynamic 
solution.  What  actually  happens  in  each  individual 
compartment  is  not  always  adequately  understood. 
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2)  The  differential  field  equation  models,  or  field 
modeling,  is  based  on  dividing  the  enclosure  into  many 
finite  volume  elements.  These  models  have  a  strong 
reliance  on  the  physics  of  the  fire  because  the  proper 
differential  conservation  equations  are  used  to 
calculate  the  mass,  momentum,  energy  and  smoke 
concentration  with  the  appropriate  initial  and 
boundary  conditions  being  applied.  For  each  small 
volume  of  gas,  the  conservation  equations  for 
characteristic  properties  such  as  temperature, 
pressure,  density,  concentration  and  velocity  are 
monitored  to  determine  the  properties  of  the  field  at 
that  time.  Physical  effects  such  as  turbulence  and 
radiation  are  easily  integrated  in  this  field  model, 
but  the  overall  results  will  depend  on  the  accuracy  of 
these  interactive  models. 


Field  models  provide  the  most  detailed  information  about 


a  fire.  This  information  comes  at  the  expense  of  requiring 


a  large  amount  of  computer  resources.  The  model  must  have  a 


large  number  of  cells  to  obtain  satisfactory  results  which 


does  restrict  the  ability  of  present  day  computers  to 


provide  real  time  simulations. 


Prior  work  in  the  area  of  field  modeling  has  revealed 


many  conclusions  as  to  how  hot  gases  and  smoke  spread.  Work 


done  at  the  University  of  Notre  Dame  [Refs.  2,3]  involves 


the  study  of  aircraft  cabin  fires.  In  dealing  with  aircraft 


cabins,  a  two  dimensional  finite  difference  algorithm  was 


used  to  modeled  turbulent  buoyant  flows.  This  program 


monitored  how  temperature,  smoke  concentracion,  and  hot 


gases  vary  in  seating  areas.  Another  two  dimensional  field 


model  developed  at  the  University  of  Notre  Dame  [Ref  4:pp. 


1721-1732]  describes  transient  cooling  by  natural  convection 


using  a  fully  transient  semi-implicit  upwind  differencing 


scheme  with  global  pressure  correction  that  provided  good 


v.w  % 


results  with  experimental  data.  This  was  for  a  square 
enclosure  with  one  vertical  wall  cooled  and  the  other  three 
walls  insulated. 

Within  the  past  few  years  a  great  deal  of  progress  has 
been  made  on  the  numerical  solution  of  the  set  of  coupled 
partial  differential  equations  that  govern  the  natural 
convection  process  in  enclosures.  Field  models  that  have 
been  developed  for  three  dimensional  rectangular  enclosures 
[Refs.  5-13],  use  the  finite  differencing  method  because  of 
its  relative  ease  of  use  and  its  success  in  solving 
nonlinear  partial  differential  equations. 

Prior  work  has  also  been  done  in  three-dimensional 
cylindrical  coordinate  buoyant  flows  [Refs.  14-20].  Most  of 
the  cylindrical  cavities  deal  with  horizontal  cylindrical 
annuli  with  differential  temperatures  specified  at  inner  and 
outer  cylindrical  walls.  Numerical  studies  directly  related 
to  a  horizontal  cylinder  with  differentially  heated  ends  is 
given  by  Smutek,  et  al.  [Ref.  19]  for  low  Rayleigh  numbers 
and  by  Yang,  et  al.  [Ref.  20]  for  high  Rayleigh  numbers. 

The  stream  function-vorticity  formulation  has  been  used 
[Refs.  14-19],  to  do  the  numerical  calculations  on  natural 
convection  in  various  geometries.  This  method  has  the 
advantage  of  decoupling  the  pressure  terms  from  the  momentum 
equations,  thereby  satisfying  continuity.  It  does  have  a 
number  of  shortcomings  which  include  becoming  unstable  at 
even  moderate  Rayleigh  numbers.  Yang,  et  al.  [Ref.  20] 


lists  these  shortcomings,  and  explains  the  advantages  of 
using  a  primitive  variable  formulation  with  arbitrary 
orthogonal  coordinates. 

The  study  of  natural  convection  in  a  spherical  annulus 
was  conducted  by  Ozoe,  et  al.  [Ref.  21]  by  utilizing  the 
vorticity-vector  potential  formulation  and  the  alternating- 
direction-  implicit  method  for  Ra  =  500. 

The  geometry  that  is  modeled  in  this  thesis  is  a 
combination  of  cylindrical  and  spherical  geometries.  The 
method  developed  by  Yang,  et  al.  [Ref.  20],  is  ideal  since 
it  involves  using  a  generalized  orthogonal  coordinate  system 
that  can  handle  complex  geometries.  The  primitive  variable 
formulation  is  also  more  desirable  due  to  its  stability. 
That  is  why  the  three  dimensional  model  developed  here  is  an 
extension  of  the  natural  convection  model  in  a  horizontal 
cylinder  developed  by  Yang,  et  al.  [Ref.  20]. 

Field  models  involving  fires  in  enclosures  have  been 
done  for  room  fires  [(Ref.  22],  and  for  a  general  three 
dimensional  enclosure  [Ref.  23].  Baum  and  Rehm  [Refs.  24- 
27]  have  done  extensive  research  into  fire  modeling.  They 
employ  time  dependent  inviscid  Boussinesq  equations  to 
describe  a  three-dimensional  model  of  buoyant  convection  and 
aerosol  dynamics  in  their  study  of  fire  induced  flow  and 
smoke  coagulation. 

In  studying  fires,  radiation  must  also  be  included. 
Lloyd,  et  al.  [Ref.  28]  have  done  a  numerical  study  on  one 
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dimensional,  surface,  gas  and  soot  radiation.  Yang  [Ref. 
29]  extended  numerical  modeling  of  natural  convection- 
radiation  reactions  in  multidimensional  enclosures.  Since 
an  efficient  overall  computational  scheme  for  gaseous 
radiation  is  still  lacking,  radiation  involving  a 
participating  medium  will  not  be  included  in  the  computer 
model  at  this  time.  Only  surface  to  surface  radiation  is 
considered. 

The  Navy  has  a  special  interest  in  fire  research.  Fires 
aboard  ships  or  submarines  result  in  fatalities  and  numerous 
injuries,  not  to  mention  lost  operating  days  and  millions  of 
dollars  in  damages.  The  Navy  has  undertaken  an  extensive 
program  to  improve  the  understanding  of  how  a  fire  spreads 
and  to  improve  the  methods  of  extinguishing  a  fire  quickly. 
Part  of  the  research  ongoing  includes  testing  various  fire 
extinguishing  equipment  or  various  fire  resistant  materials. 

B.  FIRE-1  TEST  FACILITY 

In  order  to  understand  the  spread  of  fire  and  smoke,  the 
Naval  Research  Lab  (NRL)  has  a  large  test  chamber  called 
Fire-1  in  which  full  scale  fires  can  be  monitored  and 
recorded.  The  computer  code  developed  here  is  designed  to 
simulate  fires  in  this  facility.  This  computer  model  is  a 
first  step  in  predicting  the  behavior  of  an  actual  fire  on 
board  a  ship. 

The  computer  model  will  be  verified  by  the  experimental 
data  obtained  in  Fire-1.  It  is  important  to  include  a  brief 


description  of  this  facility.  A  more  detailed  report  of 
Fire-1  is  provided  by  Alexander,  et  al.  [Ref.  30]).  Fire-1 
is  a  large  scale  pressurizable  fire  test  facility  that  is 
composed  of  a  cylindrical  midsection  with  hemispherical 
endcaps.  Both  the  cylindrical  section  and  the  endcaps  have 
a  9.6  ft  radius,  and  the  overall  length  is  46.6  ft.  In 
other  words,  it  is  a  very  large  pressure  vessel  capable  of 
being  pressurized  to  89.7  psi  at  450  F.  The  test  chamber  is 
composed  of  ASTM  285  Grade  C  steel,  3/8  in  thick.  The 
physical  description  can  be  found  in  Table  1. 


TABLE  1 

FIRE-1  TEST  FACILITY 


Material  3/8 

Tank  Volume: 

Sphere 

Cylinder 

Total 

Radius 

Cylinder  Length 
Total  Length 


ASTM  285  Grade  C  Steel 

3,706  cu.  ft. 

7,933  cu.  ft. 

11,639  cu.  ft. 

9.6  ft. 

27.4  ft. 

46.6  ft. 


Pressure  Test 


ASME  Code  for  75  psi  working 
pressure  internal 


Design  Pressure 
Hydrostatic  test 


89.7  psia  at  450  F 
127.2  psia 


A  fire  in  Fire-1  is  monitored  by  a  number  of  sensors 


which  include 

pressure  transducers 

,  thermocouples. 

and 

radiometers . 

The  test  chamber  is 

also 

instrumented 

to 

measure  smoke 

obscuration  levels. 

gas 

composition 

and 

humidity.  The  use  of  circulation  fans  can  help  to  predict 
what  will  happen  when  ventilation  is  included.  A  closed 
circuit  television  system  is  also  available  to  record  the 
visual  examination  of  the  experiment  in  progress. 

The  most  important  data  to  the  computer  model  are 
pressure,  temperature,  and  burn  rate.  The  pressure 
transducers  are  located  at  the  north  and  south  ends  of  the 
chamber.  The  temperatures  in  the  chamber  are  monitored  with 
thermocouple  arrays  located  inside  the  spherical  endcaps  as 
shown  in  Fig.  1.1.  These  are  chromel-alumel  thermocouples 
with  diameters  of  0.2  mm  and  have  ceramic  insulation 
enclosed  in  304  stainless  steel  jackets  1.0  mm  in  diameter. 
The  bum  rate  is  obtained  using  round,  tapered-edge  fire 
pans  with  various  cross-sectional  areas,  and  a  constant- 
level,  liquid  fuel  supply  system.  The  calibration  of  the 
system  is  described  by  Alexander,  et  al.  [Ref.  30]. 
Unfortunately,  the  burn  rate  data  provided  up  to  this  point 
has  not  been  accurate.  Another  way  to  obtain  this  data  must 
be  devised  or  the  calibration  must  be  improved  as  soon  as 
possible,  because  this  data  is  extremely  important  in 
verifying  the  computer  code.  Until  such  time  that  accurate 
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Figure  1.1  Side  View  of  Fire  I  with  Sensor  Locations 


burn  rate  data  becomes  available,  a  method  of  deducing  the 
burn  rate  from  the  pressure  data  must  be  used. 

The  tank  has  removable  steel  deck  plates  which  can  be 
solid  or  an  open  grate.  The  horizontal  deck  can  be  placed 
at  the  midsection,  however  the  deck  does  not  extend  into  the 
hemispherical  endcaps.  The  deck  is  split  into  two  sections 
over  the  fire  to  allow  the  fire  to  extend  past  this  second 
deck  and  to  the  overhead.  This  allows  for  flexibility  in 
checking  the  computer  code.  The  first  run  will  verify 
results  in  Fire-1  with  only  the  fire  present. 

C.  FIRE-1  COMPUTER  MODEL 

The  Naval  Postgraduate  School  and  the  University  of 
Notre  Dame  have  undertaken  this  joint  project  for  the  Navy 
to  develop  a  reliable  computer  code  to  predict  the  spread  of 
fire  and  smoke  in  enclosed  spaces,  whether  on  board  a  ship 
or  submarine.  This  will  be  used  as  a  powerful  tool  in  the 
future  to  assess  the  effectiveness  of  proposed  damage 
control  systems.  It  can  also  be  used  in  the  design  studies 
for  new  ship  types.  Before  this  can  happen  the  program  has 
to  be  verified  with  simple  cases  and  later  modified  to 
include  all  the  complexities  of  a  shipboard  fire. 

Initial  work  in  this  project  was  conducted  by  Nies  [Ref. 
31].  The  initial  geometry  chosen  was  rectangular,  with  a 
volume  identical  to  Fire-1.  This  was  a  three  dimensional, 
finite  difference  model  using  primitive  variables.  The 
model  also  included  global  pressure  correction,  surface 


radiation,  turbulence,  and  simple  conduction  to  account  for 
energy  losses  through  the  walls  of  Fire-1.  The  conclusions 
he  arrived  at  were: 


1.  The  model  predicted  expected  recirculating  flow 
patterns  for  the  horizontal  and  vertical  planes.  This 
data  cannot  be  recorded  at  NRL,  so  the  computer  model 
provided  additional  information. 

2.  The  temperature  of  the  thermocouples  located  in  the 
upper  regions  of  the  spherical  endcaps  showed 
significant  differences  from  experimental  results. 
This  could  be  attributed  to  the  geometry  difference 
between  the  model  and  the  tank. 

Since  the  burn  rate  data  was  unavailable,  this  evented 
using  the  pressure  data  to  validate  the  computer  model.  A 
temporary  solution  was  devised.  The  scheme  artificially 
developed  a  heat  release  curve  based  on  using  the 
experimental  pressure  curve  as  an  input.  From  the  slope  of 
the  experimental  pressure  curve,  a  first  approximation  of 
the  heat  input  was  determined.  Initially  this  guess  was 
fairly  good,  but  as  the  conduction  losses  mounted,  it  became 
inadequate.  The  calculated  pressure  is  a  function  of  the 
heat  input,  therefore  it  was  used  to  compute  a  correction 
factor.  The  calculated  pressure  was  compared  to  the 

experimental  pressure.  If  it  was  too  large,  the  heat  input 
was  reduced  or  vice  versa.  There  was  a  second  term  in  the 
correction  factor  to  reduce  the  oscillations  by  slowing  the 
rate  of  closure,  thereby  preventing  overshoot.  A  more 
detailed  account  of  this  procedure  is  described  by  Nies 
[Ref.  31:pp.  61-63].  As  Nies  noted  [Ref.  31]  by  using  this 
approach,  stability  problems  do  arise  from  taking  the 


derivative  of  numerical  data  and  using  the  fore-mentioned 


correcting  scheme.  But  until  such  time  that  accurate  burn 
rate  data  can  be  provided,  this  is  the  best  method  available 
to  attempt  a  test  of  the  computer  model  with  the  data  given 
by  NRL. 

The  model  now  includes  the  actual  spherical/cylindrical 
geometry  of  Fire-1.  This  required  a  reformulation  of  the 
computer  code.  The  model  includes  a  more  detailed 
formulation  of  surface  radiation,  global  pressure 
correction,  turbulence  and  conduction. 

The  purpose  of  this  thesis  is  to  verify  this  new  model 
using  the  spherical/cylindrical  geometry  by  comparing  it  to 
the  experimental  data  obtained  from  Fire-1  with  methanol  as 
the  fuel  burned.  Again  problems  with  the  inaccuracy  of  the 
burn  rate  data  required  the  computer  code  to  use  the 
elaborate  scheme  developed  by  Nies  which  used  the 
experimental  pressure  data  to  deduce  a  burn  rate.  In  view 
of  the  resulting  oscillating  heat  release  rates,  the  results 
of  finite-difference  calculations  are  only  used  to  determine 
the  proper  heat  release  rate  input.  Consequently,  this  is 
taken  as  trial  1.  Another  trial,  trial  2,  was  also  utilized 
by  inputting  a  heat  release  rate  curve  that  corresponded  to 
a  curve  fit  through  a  set  of  burn  rate  data  provided  by  NRL. 
The  burn  rate  data  was  taken  during  the  methanol  fire  run. 


the  curve  seemed  reasonable  and  was  used  to  see  how  the 
computer  code  would  predict  temperature,  pressure  and  the 
velocity  fields  if  accurate  burn  rate  data  were  provided. 
Results  of  trial  2  gave  an  indication  of  the  proper  trend  of 
temperature  build-up  as  compared  to  the  experimental  data. 
Based  on  the  combined  results  of  trials  1  and  2,  a  final 
trial,  trial  3,  was  then  made  in  the  numerical  computations 
to  simulate  the  experimental  data  as  well  as  to  provide  the 
detailed  information  on  the  developing  temperature  and 
velocity  fields. 


II.  GOVERNING  CONSERVATION  EQUATIONS 

A.  GOVERNING  EQUATIONS 

The  computer  code  developed  in  this  thesis  is  designed 
to  model  Fire-1,  the  test  facility  at  NRL.  As  previously 
described,  this  facility  is  a  combination  of  cylindrical  and 
spherical  geometries.  Prior  work  in  the  development  of  a 
code  to  simulate  a  fire  in  Fire-1  used  a  rectangular 
geometry,  Nies  [Ref.  31].  The  use  of  a  cartesian  coordinate 
system  for  that  simulation  was  treated  as  a  first 
approximation.  With  a  spherical/cylindrical  geometry,  the 
computer  code  must  be  reformulated  using  a  generalized 
curvilinear  coordinate  system. 

In  the  development  of  the  equations,  various 
assumptions  are  made.  The  fire  is  modeled  by  volumetric 
heat  input  only.  Combustion  reactions  are  not  included  at 
this  point  in  time.  Density  is  allowed  to  vary  in 
accordance  with  the  ideal  gas  law,  and  the  flow  and 
temperature  fields  are  dominated  by  turbulent  transport. 

The  governing  differential  equations  are  presented  in 
this  section  along  with  the  transformation  from  cartesian 
coordinates  into  generalized  curvilinear  coordinates  using 
standard  tensor  transformation.  As  Yang,  et  al.  [Ref.  20] 
pointed  out  there  are  several  shortcomings  that  limit  the 
stream  function-vorticity  formulation  procedure  to  be  used 


in  many  applications.  From  their  previous  work  with  flow 
transitions  in  three  dimensional  rectangular  tilted 
enclosures  [Refs.  10-12],  they  have  developed  a  three 
dimensional  primitive  variable  formulation  in  arbitrary 
orthogonal  coordinates  [Ref.  20].  It  is  this  formulation 
that  is  used  by  the  computer  model  presented  here. 

1.  General  Equations 

The  equations  governing  the  conservation  of  mass, 
momentum,  energy,  and  smoke  concentration  in  three 
dimensional  systems  can  be  written  in  terms  of  tensor 
notation  as  follows: 

Continuity 


rv 


pt  +  (P^i)  ,i  =  o 


Energy 


(pcpmT)t  +  (puicpmT),i  ~  (kT,i),i  + 


Momentum 


(2.1) 


(2.2) 


(PUi)t  +  (Puiuj),j  =  -Pfi  -  P  Gj_  +  (  CTi  j  )  f  j  (2.3) 
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Smoke  Concentration 


(pY)t  +  (pUjY)^  =  (DYfifi)  +  Sy  (2.4) 

where  p  is  the  fluid  density,  U-j_  is  the  velocity  vector,  the 
subscript  t  denotes  the  derivative  with  respect  to  time,  P 
is  the  static  pressure,  Gj_  is  the  gravity  acceleration 
vector,  a-jj  is  the  stress  tensor,  Cpm  is  the  mean  isobaric 
heat  capacity,  k  is  the  thermal  conductivity,  y  is  the 
dynamic  viscosity,  $  is  the  dissipation  function,  Y  is  the 
concentration  of  the  smoke,  and  D  is  the  diffusivity  of  the 
smoke.  The  sheer  stress  tensor,  cfj_ j ,  is  given  by 

aij  =  V*  (ui,  j  +  u j  ,  i  “  2/3  ^ijuk,k)  (2.5) 

and  the  dissipation  function  is  given  by 

^  =  2  (^i,  j )  j  +  [ui,j(i  “  5i,  j)  J2  ~  2/3  (u^  i)  2  (2.6) 

where  the  symbol  ^ijis  the  Kronecker  delta,  which  takes  on 
the  value  1  when  i  =  j  and  the  value  0  when  i  =  j . 

The  transformation  of  these  equations  into  the 
generalized  curvilinear  coordinates  (0  1,02,  03)  is  outlined 
by  Yang,  et  al.  [Ref.  20]  using  the  rules  in  accordance  with 
Eringn  [Ref.  32]. 
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The  generalized  orthogonal  coordinates  are 


transformed  as 


(2.7) 


while  a  scale  factor,  h^,  for  the  curvilinear  coordinates  in 
directions  e1  is  determined  oy 


1/2  3X^  3X^  1/2 


hi  =  =  ( — i  *  — i 

11  36  36 


(2.8) 


Note  the  summation  rule  does  not  apply  to  the  index  of  h  . 
For  cylindrical  coordinates,  h^,  h2 ,  and  h3,  have  the 
following  values  [Ref.  33]: 


h  =  r  =  e2 


(2.9) 


hn  =  1 


(2.10) 


h-5  =  1 


For  spherical  coordinates,  the  values  for  h  are: 


h]_  =  r  sin  tj)  =  82  sin  03 


ho  =  1 


(2.11) 


(2.12) 


(2.13) 


The  covariant  metric  tensor  of  orthogonal 


coordinates  is  given  by 


gij  -  gi  •  gj  -  <$ijhihj 


(2.15) 


which  is  a  special  condition  since  the  base  vectors  are 
orthogonal  and  the  results  are  a  diagonalized  metric  tensor. 
It  follows  that  g  is  the  determinant  of  g^j 


g  *  | gij |  =  h£  hf  h§  (2.16) 

The  contravariant  metric  tensor  for  orthogonal 
coordinates  is  determined  by 


gij  = 


hihj 


(2.17) 


Note  the  tangent  vector  to  the  Ui  curve  at  P  is  represented 
by  Eqn.  2.18  and  the  velocity  vector  is  represented  by  Eqn. 
2.19.  Both  velocity  components  are  in  the  curvilinear 


coordinate  system. 


The  generalized  orthogonal  equations  are  [Ref.  20]: 


Continuity 


^  1  3  .  ,  1/2  i-  , 

Pt  +  ^72  ~i  (g  p  u  /h  ) 

g  7  30 


Energy 


((VT)t +  h: (gV2  p  V ui 

do 


g  7  301  '  0 


Smoke  Concentration 


(pY)  +  -i-i-r  (g1/2  puSr/h.) 
g  7  301 


13  ,1/2  ijx 

t 7?  — r  (g  pDY  ig  }  + 

gV^  301  ,:I 


Momentum 


(2.20) 


(2.21) 


(2.22) 


(pu\  +  ~T72  ^T(gl/2  =  ~  p  +  pcl  +  172  ^-r(g1/2a?/h.) 

C  g17^  30J  11  ,X  1  g1/Z  30^  1  J 


.  3  h .  .  3h.  .  . 

n; - iCpuSP  -ah  +  r-r - i(p u^u1  -  o^) 

hihj  30g  1  hih j  3 0 1  3 


(2.23) 


s.-\  A  >’.■  V  V W  V  V  V  ’>  V  V  V  v  V“  A> WV 


/.■.V.v^.v.v.v^v.v.v.v.v^ 


V.VV  W  V  V  ’V.  ^ V. 


Stress 


h. 


h. 


6 .  .  3q. .  ra 

-i  -X  l  n 


3  -  -  134  6*?  K  <£>  +  ^  u' 


=  y 


eff  Lh.  _ai  h.; 
i  30  j 


h.  .Q]  h.  h.h .  .Qm  h 

j  36  l  l  ^  30  m 


S  il  3  ,  1/2  um, 

K-> 

g  '  30  m 


(2.24) 


Dissipation 


$  = 


-  X  KuXljj'1-4!'1 


-  ^n2 


-  2/3  [(“XX2 


(2.25) 


The  equations  are  analogous  to  the  cartesian 
coordinates,  except  in  momentum  where  two  additional  terms 
appear  due  to  Coriolis  and  centrifugal  forces.  The 
definition  of  stress  is  also  different. 

i 

t 

Some  terms  in  the  energy  equation  are  combined  to 
form  the  heat  source  term,  Sf: 


s  =  u*  +  P  -T77  ZI  (91/2  “X)  (2-26) 

g  36 

Since  the  effects  of  gas  radiation  are  not  treated  here,  the 
heat  source  term  is  non-zero  only  in  the  region  of  the  fire. 

B.  INITIAL  AND  BOUNDARY  CONDITIONS 

In  order  to  solve  the  governing  equations,  the  initial 
and  boundary  conditions  must  either  be  given  or  assumed. 
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Initial  Conditions 


be  satisfied. 


where  qr  is  the  thermal  radiation  energy.  At  the  exterior 
wall,  heat  is  convected  away. 

Special  treatment  must  also  be  given  for  the 
singularity  at  r  equal  to  zero  for  the  cylindrical 
coordinate  system.  Yang,  et  al.  [Ref.  20:pp.  167-168] 
explained  the  different  approaches  that  have  been  made  to 
rectify  this  problem,  but  they  chose  to  use  two  consecutive 
radial  control  volumes  placed  in  the  vicinity  of  r  equal  to 
zero.  Trying  a  number  of  methods,  they  found  this  gave  the 
best  representation  for  the  temperature  and  flow  fields.  It 
is  this  approach  that  is  utilized  here. 


III.  RADIATION  MODEL 

A.  INTRODUCTION 

In  order  to  calculate  the  radiation  effects  in  the 
model,  a  number  of  assumptions  have  to  be  made.  First  only 
surface  radiation  effects  are  considered.  This  means  that 
the  gas  inside  of  the  tank  is  modeled  as  nonparticipating 
and  tran~p.  rent.  This  assumption  will  lead  to  an  increase 
in  the  heat  transfer  to  the  vessel  walls  [Ref.  28:pp.  142- 
164]  and  the  energy  equation  at  the  walls  of  the  tank  will 
have  to  be  modified  to  account  for  the  direct  deposit  of 
energy  from  the  fire.  The  second  assumption  is  that  the 
surfaces  are  grey  and  the  radiation  reflected  or  emitted 
from  any  surface  is  diffusely  distributed.  The  third 

assumption  defines  what  is  a  surface.  Both  the  tank  wall 
and  the  flame  are  modeled  as  a  specified  number  of  cells 
each  small  enough  to  be  considered  as  a  differential  zone. 

B.  THE  METHOD  FOR  CALCULATING  THE  RADIANT  HEAT  TRANSFER 
The  radiation  model  is  based  on  the  net  radiosity  method 

as  outlined  in  Sparrow  and  Cess  [Ref  34:pp  90-94]  and 

summarized  here. 

In  an  enclosure,  the  net  rate  of  heat  loss,  Q,  from  a 
typical  surface  "i"  is  the  difference  between  the  emitted 


24 


radiation  and  the  absorbed  portion  of  the  incident 
radiation. 


A. 


l 


4 

e  .  cT 
1  i 


a  .  H  . 


l  l 


(3.1) 


where  a  is  the  Stef an-Boltzmann  constant,  £  j_  is  the 
exnissivity,  otj_  is  the  absorptivity,  and  is  the  radiation 
incident  on  surface  i  per  unit  time  and  unit  area. 

In  order  to  simplify  the  above  equation,  a  number  of 
assumptions  must  be  made.  The  tank  represents  an  enclosure 
composed  of  N  finite  surfaces.  Each  surface  is  assumed  to 
be  isothermal.  The  participating  surfaces  are  gray,  that 
is,  the  emitted  and  the  incident  radiation  are  independent 
of  wavelength.  From  Kirchoff's  Law: 


ai  =  ei  (3.2) 

The  radiation  reflected  and  emitted  from  any  surface  is 
diffusely  distributed.  This  will  simplify  the  analysis 
since  the  radiant  energy  streaming  away  from  a  surface  is 
the  sum  of  the  emitted  and  reflected  radiation.  Since  they 
are  both  diffusely  distributed,  then  they  are  directionally 
indistinguishable  and  there  is  no  need  to  treat  them 
separably.  Since  H  represents  the  incident  radiant  energy 
arriving  at  a  surface,  pH  would  be  the  fraction  of  energy 
that  is  reflected  from  the  surface.  The  total  radiant 


energy  that  streams  away  from  a  surface  is  termed  the 
radiosity  and  is  denoted  by  the  symbol  B. 


B  =  eoT4  +  pH  (3.3) 

The  radiosity  is  composed  of  the  radiation  emitted  and 
reflected  by  the  surface.  It  is  also  assumed  that  the 
radiosity  of  any  surface  is  uniform  along  that  surface. 
Upon  eliminating  the  flux  from  Egn.  3.3,  and  applying  Egn. 
3.2,  the  following  equation  is  obtained. 


Qi  £i  4 
i  =  i —  (or4  _  B. ) 

A.  1  -£ .  l  l 
l  l 


(3.4) 


For  an  opaque  material,  the  incident  radiation  is  either 
absorbed  or  reflected,  that  is, 


a  +  p  =  1 


(3.5) 


p  =  1  -  a  (3.6) 

From  Eqn.  3.2  and  Eqn.  3.6,  the  radiosities  are  found  by 
applying  Eqn.  3.3  at  each  of  the  surfaces  in  the  enclosure. 

4 

Bi  =  eiOTi  +  (1  -  ei)  Hi  (3.7) 

The  radiant  flux  H^  is  formed  by  the  summation 


Hi  ~  >  Bj  FAi-Aj 

D=1 


(3.8) 


where  Bj  is  the  radiosity  at  surface  "j"  and  FAi_Aj  is  the 
view  factor  from  surface  "i"  to  surface  "j".  The  radiosity 
at  surface  "i"  now  becomes 


Bi  =  Ej_aTj_  + 


(1  £i)  .1  BjFAi-Aj 

1  <  i  <  N 


(3.9) 


In  this  way  there  are  generated  N  linear,  inhomogeneous, 
algebraic  equations  for  N  unknown  radiosities.  By  solving 
the  simultaneous  linear  algebraic  equations,  B  can  be  found 
and  then  the  heat  transfer  rates  Q  . 

This  solution,  however,  needs  to  be  resolved  many  times 
when  transient  operating  conditions  are  being  analyzed  for 
the  enclosure.  A  better  way  to  handle  the  solution  is  to 
find  a  direct  relationship  between  unknown  heat  fluxes  and 
prescribed  temperatures.  Equation  3.9  is  rephrased  as 


y  X. .B.  =  n.  1  <  i  <  N 
j=l  ^  3  ^  -  - 


(3.10) 


where 


Evaluating  the  equation  for  i  =  1,2,...N,  an  N  by  N  array  is 
formed  and  will  designated  by  matrix  X.  A  column  vector  of 
radiosities  and  temperatures  raised  to  the  fourth  power  for 
surfaces  i  =  1-N  is  designated  B  and  T4  respectively. 

The  system  of  equations  can  now  be  represented  by 

[X]  <B>  =  a<T4>  (3.13) 

To  find  radios ity,  the  inverse  of  X  is  multiplied  by  both 
sides  of  the  equation. 

<B>  =  a [X] -1  <T4>  (3.14) 


This  can  now  be  substituted  into  Eqn.  3.4. 


where 


Qi  ?  4 

-  =  y  G. .aT 

j=l  *3  3 


Ai 


(3.15) 


Ui.  .  =  x-1 

1]  JO 


(3.16) 


’ll 


e  . 

±-  (5  .  . 
1-e.  13 


(3.17) 


In  this  variation  of  the  equation,  *ij  only  depends  on 
emittances  which  are  regarded  as  constants  and  do  not  depend 


on  the  temperature.  Once  the  temperatures  are  known,  the 
heat  flux  of  the  surfaces  can  be  calculated. 

C.  VIEW  FACTOR  CALCULATIONS 

The  view  factor  (alternatively  defined  as  the  angle 
factor,  shape  factor  or  geometrical  factor)  provides 
information  on  the  fraction  of  radiant  energy  leaving  one 
surface  that  arrives  at  a  second  surface. 

Sparrow  and  Cess  [Ref.  34:pp.  120-125]  provide  the 
general  definition  of  the  shape  factor. 

.  cos  8-  cos  8-  dA.  dA. 

*Ai-Aj  =  JT  /  /  - 1 - T - 1 — 1  (3*18) 

i  A .  A .  irr 

i  D 

In  this  equation  the  subscript  "i"  indicates  the  surface 
from  which  the  radiation  is  leaving  from  and  the  "j" 

indicates  the  surface  to  which  the  radiation  is  going.  The 
length  of  the  connecting  line  between  the  two  elements  is  r, 
and  the  angles  and  8j  are  formed  by  the  respective 

surface  normals  and  r. 

Due  to  the  geometries  associated  with  the  tank,  the 

equations  to  evaluate  the  view  factors  are  not  found  in  the 
literature.  This  presents  a  problem  that  can  be  solved  in 
one  of  two  ways.  The  tank  could  be  divided  into  a  few 

finite  areas  resulting  in  the  evaluation  of  the  integral 
over  a  complex  area.  Or  the  tank  could  be  divided  into  a 
number  of  smaller  areas  that  could  be  assumed  small  enough 


to  be  considered  differential  in  size. 


the  integrand  is  assumed  constant. 


This  avoids  any 


integration. 


FAi-Aj 


cos  3 .  cos  3 
1 


'dAi-dAj 


(3.19) 


This  is  a  reasonable  assumption  since  the  error  introduced 
calculating  the  view  factors  in  this  manner  is  of  the  same 
order  of  magnitude  as  that  of  the  finite  difference 
algorithm.  In  order  to  find  the  view  factor  from  surface 
"j"  to  surface  "i" ,  reciprocity  can  be  used  since  the 
leaving  radiant  fluxes  are  diffusely  and  uniformly 
distributed.  Sparrow  and  Cess  showed  [Ref.  34]  that  the 
view  factors  depend  only  on  the  geometrical  orientation  of 
the  participating  surfaces  for  isothermal,  gray,  diffuse 
surfaces.  The  following  equation  is  then  used. 


Ai  FAi-Aj  “  Aj  FAj-Ai 


(3.20) 


The  first  consideration  in  developing  the  view  factors 
for  the  tank  with  the  fire  present  was  to  find  the  view 
factors  between  elements  on  the  walls  of  the  tank  alone, 
then  the  effect  of  the  fire  would  be  added  along  with  the 
effects  of  shading.  The  tank  is  divided  into  560  cells,  100 
on  each  endcap  and  360  on  the  cylinder.  Each  cell  is  now  a 


I. 


same  hemisphere 
opposite  hemispheres 

b)  spherical  element  to  cy.' 

c)  cylindrical  element  to 


To  illustrate  the  process  by  which  these  view  factors 
were  found  refer  to  Fig.  3.1  which  shows  how  the  cylindrical 
element  to  spherical  element  view  factors  were  obtained. 
The  other  view  factors  were  found  in  a  similar  fashion. 
First  the  distance  between  the  two  elements  was  obtained  by 
using  relations  for  right,  triangles. 

a2  =  r2  +  p2  _  2p  R  COS  8  (3.22) 

b2  =  (Az  +  h)2  (3.23) 

r2  =  a2  +  b2  (3.24) 


Next  the  cosine  of  the  angle  between  the  normal  of  the 
element  and  the  distance  r  must  be  found.  For  element  1, 
is  found  in  the  following  manner  then  cosine  0^ 


?i  =  b2  +  P2 


cos  0]_  = 


+  r 


2Rr 


(3.25) 


(3.26) 


For  element  two  a  similar  analysis  is  made. 


2 

C  2  = 


AZ2  +  R2 


R2  +  r2  -  ? 


2 

2 


(3.27) 


cos  Bo 


(3.28) 


which  results  in  the  view  factor  being: 


dF 


A1-A2 


cos  ^  cos  $2 


Trr 


2  2  2  2  2 
(r  -  AZ  ) (R  +  a  -  p) 

.  r,2  4 

4ttR  r 


dA, 


(3.29) 


2 .  Shading 

The  next  consideration  was  putting  the  fire  in  the 
tank.  Once  this  happens,  a  problem  concerning  shading 
enters  in.  The  fire  will  lie  in  the  direct  path  of  some 
elements.  The  elements  that  would  be  affected  are  those  on 
the  north  sphere  to  those  on  the  south  sphere,  elements  on 
either  sphere  to  certain  elements  on  the  cylinder,  and 
elements  on  the  cylinder  to  other  elements  on  the  cylinder 
but  on  the  opposite  side  of  the  fire.  If  the  line  of  site 
between  any  two  elements  intersected  the  fire,  the  view 
factor  between  the  two  elements  was  set  to  zero.  This  was 
accomplished  in  the  following  manner.  First  the  equation 
for  the  line  of  sight  was  determined.  Each  element  is  given 
a  x,y,z  location  in  the  following  way: 

-  spherical  to  cartesian 

X  =  R  sin  0  cos  0  (3.30) 

Y  =  R  sin  cos  0  (3.31) 
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North  End 


Z  =  R  cos 

(3.32) 

South  End 

Z  =  Zcyl2  -  R  cos  P 

(3.33) 

-  cylindrical 

to  cartesian 

X  =  R  cos  6 

(3.34) 

Y  =  R  sin  9 

(3.35) 

Z  =  Zcyll  +  Zc 

(3.36) 

where  zcyll  and  zcyl2  are  specific  locations  on  the  tank  and 

illustrated  in  Fig.  3.2  and  Zc  is  the  length  along  the 

cylinder  portion  of  the  tank  only.  The  z  axis  origin  is  at 

the  north  end  of  the  tank. 

The  equation  of  the  line  between  the  elements  is: 


The  equation  for  the  fire  is: 

X2  +  (Z  -  HSZ ) 2  =  Rf  (3.38) 

(-Yf  <  y  <  R) 

where  rf  is  the  radius  of  the  fire,  and  HSZ  is  the  z 
location  of  the  vertical  axis  of  the  fire  centerline. 

To  find  the  intersection,  substitute  Eqn.  3.37  into 
Eqn.  3.38. 


At2  +  Bt  +  C  =  0 


(3.39) 


where 


A  =  (Xj  -  Xi)2  +  (Zj  -  Zi)2  (3.40) 

B  =  2Xi(Xj  -  Xi)  +  2 (Z j  -  Zi) (Zi  -  HSZ)  (3.41) 

C  =  xf  +  (Zi  -  HSZ)2  -  r|  (3.42) 

If  the  following  is  true,  there  is  no  shading  and 


the  view  factor  remains  unchanged. 


Otherwise  two  solutions  for  t  can  be  found  which 
result  in  two  solutions  for  y,  yl  and  y2,  from  Eqn.  3.37. 
The  solutions  for  y  must  now  be  checked  to  see  if  they 
coincide  with  the  fire. 


If  this  equation  is  true,  then  there  is  shading  and  the  view 
factor  between  the  two  elements  must  be  set  equal  to  zero. 

3 .  Fire  Element  to  Tank  Element  View  Factors 

The  fire  is  modeled  as  a  vertical  cylinder  with  the 
diameter  equal  to  that  of  the  experimental  fire  pan.  The 
fire  pan  rests  on  a  small  deck  in  Fire-1,  the  fire  in  the 
computer  model  then  extends  from  the  same  location  to  the 
top  of  the  tank.  The  fire  height  can  be  modified  if 
required.  In  order  to  calculate  the  view  factors,  it  is 
assumed  that  the  fire  can  be  divided  into  19  equal  sized 
cells.  The  midpoints  of  these  cells  lie  on  the  verical  axis 
of  the  cylinder.  When  actually  calculating  the  view 

factors,  the  tank  cells  have  a  line  of  sight  to  the  midpoint 
of  a  fire  cell  that  lies  in  a  two  dimensional  plane  facing 
the  tank  cell.  This  further  models  the  fire  as  if  a  plane 
extends  through  the  axis  and  now  rotates  around  the  axis  to 
face  the  desired  tank  cell.  The  area  the  tank  element  sees 
can  actually  be  rectangular,  circular,  or  a  combination  of 
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the  two.  This  unknown  area  will  ultimately  cause  problems 
with  the  calculations  and  a  modification  factor  will  be 
added. 

In  calculating  the  heat  source  view  factors,  a 
number  of  problems  were  encountered  and  solved  by  making 
modifications  or  assumptions.  These  problems  were  as 
follows. 

two  sidedness  of  the  fire  cells 

geometry  of  the  fire  cells  close  to  the  tank 

wall 

actual  area  of  the  fire  cell. 

The  first  problem  is  a  result  of  the  modeling  of  the 
fire.  As  the  plane  rotates  about  the  axis,  it  sees  all  560 
cells.  It  is  better  to  model  the  plane  as  one  side  seeing 
only  cells  on  the  north  end  of  the  tank  and  the  other  side 
of  the  plane  seeing  only  the  south  tank  cells.  When  this  is 
done,  the  enclosure  property  can  be  used  to  check  the 
accuracy  of  the  view  factor  calculation.  If  this 
modification  is  not  done,  then  the  sum  from  the  enclosure 
property  would  be  two  vs.  one. 

When  calculating  the  view  factors  from  the  fire 
cells  to  all  other  cells  in  the  tank,  the  enclosure  property 
was  within  tolerence  for  those  fire  cells  in  the  center  of 
the  tank,  but  the  closer  the  cell  was  to  the  tank  wall,  the 
further  the  total  summation  deviated  from  1.0.  The  view 
factor  equation  used,  Eqn.  3.19,  represents  the  radiant 
energy  leaving  dA^  that  is  incident  on  dAj .  It  was  derived 


using  the  relations  between  the  radiosity,  intensity,  and 
the  solid  angle  subtended  by  dAj  when  viewed  from  dAj_.  The 
solid  angle,  is  represented  by 

dw  =  dAj  cos  Sj/r2  (3.45) 

As  the  fire  cells  become  extremely  close  to  the  tank  cell, 
this  solid  angle  can  not  be  approximated  by  assuming 
infinitesimal  areas.  The  initial  assumptions  used  to 
calculate  the  view  factors  do  not  give  a  totally  accurate 
result  in  this  case.  The  view  factors  are  underestimated, 
resulting  in  the  total  summation  being  less  than  one.  The 
cells  that  are  most  effected  by  this,  are  those  tank  cells 
directly  over  the  fire.  The  angle,  3j_,  between  the  fire 
cell  normal  and  the  line  between  the  fire  cell  and  these 
cells  is  almost  90  degrees.  When  this  happens  the  greatest 
modification  is  required.  As  this  angle  goes  to  zero,  the 
tank  and  fire  cells  can  accurately  use  the  assumptions 
stated  in  the  beginning  of  this  section,  for  the  solid  angle 
subtended  is  very  small. 

A  global  modification  routine  was  used  to  calculate 
the  view  factor  from  the  heat  source  to  the  tank.  First  the 
sum  of  the  view  factors  from  the  fire  to  the  tank  walls  must 
equal  one  from  the  enclosure  property.  As  stated  before, 
this  is  for  each  side  of  the  fire.  Since  Bj  is  the 


important  parameter,  a  total  modification  factor,  H,  is 
found  using  3]_. 

H  =  f ( 1  -  COS  S-l)  (3.46) 

where  f  is  a  modification  factor  unique  to  each  fire  cell. 
The  new  view  factor  can  be  calculated  from  the  old  view 
factor  by  the  following  equation. 


VF(new)  =  VF(old){l  +  H} 


(3.47) 


Before  this  equation  can  be  used,  f  must  be  found.  Since 

the  sum  of  the  view  factors  must  be  one,  then  the 

siim  of  the  right  hand  side  of  Eqn.  3.47  must  also  equal  one. 


N  N 

l  ^old  +  J.  wold  •  H  =  1 
3=1  3=1 

I,  wold  +  l  ^cld  (1  -  1:03  8j>  =  1 
3=1  3=1 

Solving  for  f 


f  = 


N 

i  -  y  vf  . . 

,L,  old 

_ 2=1 _ 

N 

T  VF  .  .  (1  -  cos 
. L .  old 

3=1 


(3.48) 


(3.49) 


(3.50) 


This  f  is  calculated  for  every  fire  cell,  after  the  initial 
view  factors  are  found.  The  closer  the  fire  cell  is  to  the 


tank  cell,  the  larger  f  would  become.  Once  f  is  found,  each 
view  factor  from  the  fire  cell  to  the  tank  cell  would  be 
modified  using  Eqn.  3.50.  The  view  factors  calculated 
using  reciprocity  would  also  be  modified. 

To  further  refine  the  process,  a  second  iteration 
was  used  to  find  a  new  f,  and  then  this  new  f  was  used  to 
improve  the  view  factors  for  a  second  time.  Two  iterations 
were  all  that  was  required  to  obtain  excellent  results  with 
the  total  summation  from  the  fire  cells  to  all  cells  either 
on  the  north  end  or  the  south  end  being  extremely  close  to 
one. 

The  last  problem  was  the  summation  from  one  tank 
cell  to  all  other  cells  in  the  enclosure,  whether  they  be 
other  tank  cells  or  fire  cells,  was  not  equal  to  one.  If 
the  fire  was  not  included,  the  summation  was  equal  to  one. 
Which  indicated  the  problem  was  with  the  reciprocity 
relation  between  the  fire  cells  and  the  tank  cells.  In 
calculating  the  view  factors  from  the  fire  to  the  tank,  the 
exact  area  of  the  tank  cells  was  known.  But  using 
reciprocity,  an  assumption  had  to  be  made  for  the  area  of 
the  fire  cell.  The  first  assumption  had  the  area  of  the 
fire  being  a  rectangle,  a  circle  or  a  combination  of  the  two 
depending  on  the  angle  Sj. 

ApQ  =  ( 1  —  cos  $  ^ )  +  Ac  (cos  (3.51) 
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where  A 


pC  is  the  area  of  the  fire  cell,  AR  is  the  area  of 
the  rectangle,  and  Ac  is  the  area  of  the  circle. 

Another  modification  was  in  order  for  the  tank  cells 
to  the  fire  cells.  The  first  step  was  to  calculate  a 
modification  factor  for  each  tank  element. 


N 


A(i) 


[1  -  l  VF(i,  j )  ] 

j=i _ 


VF(i,j) 


579 

I 

j=561  SQRT [1  +  (R(i, j )/Rf )  ] 


(3.52) 


where  the  numerator  involves  the  difference  between  the 
desired  value  of  one  using  the  enclosure  property  and  the 
actual  value  obtained  from  summing  all  the  view  factors  in 
the  enclosure.  The  denominator  involves  a  summation  only 
over  the  nineteen  fire  cells,  where  R(i,j)  is  the  distance 
between  the  tank  and  fire  cell  and  Rf  is  the  radius  of  the 
fire  pan. 

The  new  view  factor  is  then  calculated  by  the 
following  equation. 


VF 


new 


(i,j)  =  [1  + 


A(i) 


SQRT[1  +  (R(i, j)/Rf)  ] 


27]  *VFold(i^)(3-53) 


Again  this  modification  is  only  applied  on  the  view  factors 
from  the  tank  to  the  fire,  i  can  vary  from  1-560  and  j  can 
vary  from  561  to  579.  The  sum  from  any  tank  cell  to  all 


other  cells  in  the  enclosure  is  now  found  to  be  one. 


IV.  OTHER  PHYSICAL  MODELS 


Besides  including  radiation  into  the  field  model,  other 
aspects  of  the  fire  must  also  be  considered.  It  is  the 
purpose  of  this  chapter  to  briefly  outline  the  other  models 
incorporated  into  the  program  at  this  time. 

A.  CONDUCTION  MODEL 

The  computer  model  must  account  for  the  loss  of  heat  by 
conduction  through  the  tank  walls.  In  the  later  stages  of 
the  fire  this  becomes  increasingly  important. 

A  simple  conduction  model  is  proposed  here.  The  model 
employs  one  dimensional,  unsteady  conduction  through  the 
tank  wall  thickness.  Convection  at  the  exterior  wall  is 
modeled  with  a  constant  heat  transfer  coefficient.  The 
energy  eguation  as  applied  to  the  solid  wall  becomes: 


T  .  g1J)  +  S 
»  f  J 


(4.1) 


where  PsCpS  is  the  heat  capacitance  of  the  wall  and  ks  is 
the  wall  conductivity. 


B.  TURBULENCE  MODEL 

The  turbulence  model  used  in  the  program  is  a  simple 
algebraic  model.  The  algebraic  model  can  adequately  predict 
the  average  values  of  the  dependent  variables. 


A.  INTRODUCTION 


In  the  formulation  of  the  computer  model,  the  governing 
differential  equations  must  be  modified  in  order  to  use 
numerical  methods  to  solve  for  the  primitive  variables.  The 
independent  variables  are  space  and  time.  The  dependent,  or 
primitive,  variables  are  the  velocity  components  u1,  u2,  u3 , 
pressure  P,  temperature  T,  and  density  p.  The  six  equations 
required  to  solve  for  these  unknowns  are  the  conservation 
equations  of  mass,  momentum,  and  energy  plus  the  equation  of 
state.  The  conservation  equations  were  developed  in  Chapter 
II  (Eqns.  2.20,  2.21,  2.23).  The  equation  of  state  for  a 
perfect  gas  is: 

P  =  pRT  (5.1) 

where  R  is  the  universal  gas  constant. 

In  Patankar's  book  [Ref.  36:pp  25-40],  he  describes  the 
discretization  concept  as  it  applies  to  a  finite  difference 
method.  The  general  form  of  the  finite  difference  equations 
for  the  computer  model  developed  in  this  thesis  follows 
Doria's  initial  work  [Ref.  37]  done  at  the  University  of 
Notre  Dame.  Doria  [Ref.  37:pp.  1-44]  discretized  the 
governing  equations  using  a  control  volume  method  which  was 


one  of  the  methods  described  by  Patankar  [Ref.  36].  In  this 
method,  the  flow  domain  is  divided  into  many  separate 
control  volumes.  The  conservation  equations  are  written  for 


each  cell  in  integral  form.  This  will  lead  to  a  set  of 
finite  difference  equations. 

The  control  volume  approach  uses  the  integral  form  of 
Eqns.  2.20,  2.21,  and  2.23.  All  properties  are  at  the 
center  of  the  cell  and  represent  the  overall  average  values. 
If  a  numerical  method  violates  the  conservation  property, 
non-physical  results  may  be  obtained  due  to  artificial 
sources  or  sinks  of  mass,  momentum,  or  energy.  When 
primitive  variables  are  used  vice  the  stream  vorticity 
method,  special  procedures  are  needed  to  handle  the  pressure 
coupling  among  the  equations.  An  iteration  procedure  is 
used  to  estimate  pressure.  The  pressure  is  then  corrected 
to  ensure  mass  is  conserved  at  each  cell.  A  local  pressure 
correction  procedure  is  discussed  by  both  Patankar  [Ref.  36: 
pp.  120-126]  and  Doria  [Ref.  37:pp.  26-32].  A  global 
pressure  correction  must  also  be  included  in  the  model  to 
handle  net  energy  changes  in  the  system.  Nicolette,  et  al. 
[Ref.  4]  describes  this  procedure. 

The  finite  difference  equations  are  solved  by  an 
iterative  solution  procedure.  For  a  nonlinear  problem,  it 
is  not  necessary  or  practical  to  take  the  solution  of  the 
algebraic  equations  to  final  convergence  for  a  fixed  set  of 
coefficient  values.  Various  schemes  have  been  developed 


over  the  years  in  attempt  to  obtain  a  finite  difference 
solution  of  the  flow  problem.  The  central  difference 
solution  was  found  to  be  unsuitable  because  it  gave  a 
physically  unreal  oscillatory  behavior  in  simulations  where 
convection  is  important.  The  upwind  differencing  scheme 
takes  into  account  the  unsymmetrical  phenomenon  of 
convection  by  using  backward  differencing  in  the  direction 
of  flow  for  the  first  order  derivative.  The  upwind  scheme 
gives  physically  reasonable  results  for  most  grid  Peclet 
numbers  and  is  free  of  numerical  oscillations.  Severe 
errors  do  enter  in  at  small  grid  Peclet  numbers  because  of 
truncation  errors.  The  upwind  differencing  scheme  also 
overestimates  diffusion  at  high  Peclet  numbers.  Both 

schemes  can  be  improved  by  reducing  the  grid  Peclet  number 
which  implies  reducing  the  grid.  This  is  impractical 
because  of  limited  computer  resources. 

Another  scheme  for  convective  modeling  has  been 
developed  by  Leonard  [Ref.  38],  It  is  called  QUICK 
(Quadratic  Upstream  Interpolation  for  Convective 
Kinematics) .  It  has  the  accuracy  feature  of  central 
differencing  and  retains  the  stable  convective  sensitivity 
of  upwind  differencing.  The  discretization  equations  do  not 
necessarily  have  a  diagonally  dominant  coefficient  matrix 
and  therefore  require  iteration.  H.Q.  Yang  [Ref.  13] 
demonstrates  the  application  of  the  QUICK  scheme  in  coupled 


momentum,  energy  and  pressure  equation  solutions  for  three 
dimensional  flow  in  tilted  rectangular  enclosures. 

In  the  following  sections,  the  control  volume  method 
will  be  applied  to  the  spherical/cylindrical  geometry  of 
this  computer  model.  The  conservation  equations  will  be 
integrated.  And  the  finite  difference  equations  will  be 
formed  using  the  QUICK  scheme.  Further  iterative  procedures 
will  be  added  to  correct  for  pressure. 

B.  CONTROL  VOLUME  APPROACH 

In  the  control  volume  method,  the  total  volume  to  be 
modeled  is  divided  into  a  number  of  nonoverlapping  control 
volumes.  In  each  control  volume,  or  cell,  there  exists  one 
grid  point.  A  spherical  three  dimensional  cell  and  its 
neighbors  is  illustrated  in  Fig.  5.1,  and  a  cylindrical  cell 
is  illustrated  in  Fig.  5.2.  The  cell  is  centered  at  a  nodal 
point,  P  or  (I,J,K)  .  The  points  at  the  neighboring  cells 
are  designated,  east  (I+1,J,K) ,  west  (I-1,J,K),  north 
(I,J+1,K),  south  (I , J-l , K) ,  front  (I,J,K+i) ,  and  back 
(I , J, K-l)  or  E,  W,  N,  S,  F,  B  respectively.  The  boundaries 
are  labeled  by  lower  case  letters  e,  w,  n,  s,  f,  and  b.  The 
cell  boundaries  coincide  with  the  physical  boundaries  to 
make  the  application  of  boundary  conditions  easier.  The 
previous  geometry  was  rectangular  and  used  a  uniform  grid 
[Ref.  31].  In  the  spherical/cylindrical  geometry,  the 
radial  grid  is  no  longer  uniform.  A  control  volume  in  the 
generalized  orthogonal  coordinate  system  is  represented  by 
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/g6162  & .  The  actual  grid  size  will  be  discussed  in  Chapter 
VI. 

Temperature , pressure ,  density,  specific  heat  and 
viscosity  are  calculated  at  the  basic  grid  point.  Whereas 
velocity  is  calculated  from  a  grid  that  is  staggered  one 
half  cell  from  the  basic  grid.  Difficulties  can  arise  from 
calculating  all  variables  from  the  same  grid  points. 
Patankar  [Ref.  36:pp.  115-120]  lists  these  difficulties  and 
explains  the  advantage  of  a  staggered  grid.  First,  a 
staggered  grid  prevents  a  wavy,  oscillatory,  velocity  field 
from  satisfying  the  continuity  equation  by  using  the 
difference  of  adjacent  velocities.  Secondly,  the  velocity 
is  easily  calculated  as  a  function  of  the  pressure 
difference  between  the  two  adjacent  basic  grid  points. 

A  two  dimensional  view  to  illustrate  a  basic  cell  and  a 
staggered  cell  can  be  found  in  Figs.  5.3  and  5.4.  The  u1 
node  labeled  P  corresponds  to  the  west  face  of  the  basic 
cell  centered  at  P.  Its  surrounding  staggered  cells  have 
their  centers  marked  as  E,  W,  N,  "s”,  F,  B  and  the  six 
boundaries  are  marked  as  e,  w,  n,  s,  T,  b.  The  same  applies 
to  u2 ,  and  u3  components  by  moving  the  basic  cell  one-half 
cell  to  the  south  or  back  respectively.  The  velocity,  u1, 
for  the  basic  cell  (I,J,K)  is  located  on  its  west  face,  u2 
is  on  the  south  face  and  u3  is  on  the  back  face. 
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C.  INTEGRATION  OF  THE  CONSERVATION  EQUATIONS 


Discretization  of  the  conservation  equations  is  now 
accomplished  by  integrating  Eqns.  2.20,  2.21,  and  2.23  over 
each  control  volume.  The  integral  form  of  the  conservation 
equations  can  be  written: 


Continuity  Equation: 


I  If  h1h2h3d0ld62de3  +  I  + 

do  do 


+  ^-jCpu^.hjjde^e^e3  =  o 
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(5.2) 


Energy  Equation: 


/  h1h2h3de1de2de3  +  /  ^pc^rh^) 
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3Q2  pn  13  ^  P*  12 
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Momentum  Equations: 
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D.  CONTINUITY  EQUATION 

In  developing  the  finite  differencing  equations,  finite 

quantities  are  substituted  for  the  differential  element  in 

« 

the  integral  form  of  the  equations.  Finite  values  are 
substituted  for  a  quantities  and  for  various  fluxes  across 
the  cell  boundaries.  The  differencing  techniques  used  in 
this  numerical  scheme  are  forward  differencing  for  the  time 
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steps,  central  differencing  for  the  diffusion  terms,  and 
QUICK  for  the  convective  terms. 

In  the  forward  differencing  scheme,  a  future  value  of 
the  dependent  variable  is  predicted  from  the  previous  value 
plus  a  known  slope  multiplied  by  the  time  step.  For 
continuity: 


n  n-1  , 
p  =  p  +  mAt 


(5.5) 


where  pn-1  is  the  old  value  for  density  at  the  previous  time 
step,  p  is  the  new  value  for  density,  m  is  the  known  slope. 
The  left  hand  side  of  Eqn.  5.2  becomes 


~  n  n-1 

!£dv  =  £— - 

3t  At 


h1h2h3  A61A02A03 
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n-1 


At 


AV 


(5.6) 


Using  the  continuity  equation  as  a  model,  the  evaluation 
of  the  integral  becomes 


(pn  -  pn_1)  ^  +  (pu1h2h3d02d03]e  -  [pu1h2h3d02d03lw 

+  [pu2h.h-d01d03]  -  [puVh-^d©3] 

-L  o  n  l  o  s 

+  [pu3h]h2de1de2]f  -  [ pu3h1h2d01d0 2 ] ,  =  0 


(5.7) 


Because  of  the  different  locations  for  evaluating  the 
density  and  velocity  components,  the  symbol  G  will  represent 
the  mass  flux  rate.  The  mass  flux  rate  will  be  evaluated  at 


the  six  faces  of  the  basic  cell. 

=  (pu1)e  =Ug((Pp(h1Ae1)i+1  +pE(h1A01)i)/((h1Ae1)i+1+(h1A61)i)) 

=  (pu1)w  =  ui((Pp(h1A01)i_1  +pw(h1A01)i)/((h1Ae1) ._1+(h1A91)i)) 
=  (pu2)n  =  ^((Pp(h2A02)j+1  +PN(h2A92)j)/((h2A02)  j+1+(h2A02)j)) 
=  (pu2)s  =  u2((pp(h2A02)j_1  +ps{h2A02)j)/((h2A02)j_1+(h2A02)j)) 
=  (pu3)f  =  u3((pp(h3A03)k+1  +pf(h3A03)k)/((h3A03)k+1+(h3A03)k)) 

=  ( Pu3)b  =  ^((PpCh^e3)^  +pb(h3Ae3)k)/((h3Ae3)k_1+(h3A03)k)) 

and  the  area  is  represented  by 

Ae,  w  —  (h2  AO^hs  A0^ )  e t  w 
An,s  =  (hx  A01h3  A03)n,s 
Af,b  =  (hi  A01h2  A02)  f  ^ 


(5.8) 

(5.9) 

(5.10) 

(5.11) 

(5.12) 

(5.13) 

(5.14) 

(5.15) 

(5.16) 


The  continuity  equation  is  finite  difference  form  is 


,  n  n-l.Aw 
(p  -  p  )AV  , 

At 


G  —  G  +  G  —  G  +  (jc  ~  G. 
e  w  n  s  to 


(5.17) 


where  Smpis  the  mass  source  term.  If  this  were  an  ideal 


situation,  the  mass  source  term  would  be  equal  to  zero. 


However,  for  an  iterative  numerical  solution,  the  sum  of  the 


mass  fluxes  will  equal  a  finite  nonzero  value,  As  the 


solution  is  iterated  and  converges,  the  mass  source  term 


will  approach  zero.  The  solution  will  be  iterated  until  S: 


is  less  than  a  predetermined  cutoff  value. 


E .  ENERGY  EQUATION 


The  energy  equation  will  be  used  to  illustrate  the  QUICK 


scheme . 


Integration  of  the  energy  equation  over  the 


control  volume  leads  to  the  following  equation. 


[(pc  T)n  -  (PC  T)n-1]  f  +  Ge(CEJnT)eAe  -  VWVw 


+  VVVn  -  Gs<Ws  +  Gf<CanT)fA£  '  W>b*b 


-  k  A  +  k  JK  (-^)f  -  k.  A.  ( - 3), 

S  S  h2392  S  h3363  f  °°  h390  ^ 


+  S  AV 


(5.18) 
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where  S  is  the  source  tern  which  includes  the  terms  of 


dissipation,  pressure  work,  radiation  and  any  internal  heat 
sources  (see  Eqn.  2.26). 

Let  J  represent  the  total  heat  flux  which  is  due  to 
convection  and  conduction. 
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(5.19) 

(5.20) 

(5.21) 


The  above  equations  represent  the  01,  02,  e3  components 

of  the  total  flux  of  heat.  The  subscript  indicates  the 

point  to  which  they  correspond.  For  example,  Jg  is  the 

2 

component  of  flux  at  point  "e"  on  the  east  face;  Jn  is  the 

2 

component  of  flux  at  the  point  "n"  on  the  north  face;  Jf 
is  the  component  of  flux  at  the  point  "f"  on  the  front 
face.  Substituting  Eqns.  5.19  -  5.21  into  Eqn.  5.18,  the 
energy  equation  in  finite  difference  form  becomes: 


<»V)n"1]  SF+'^e-'&w 

+  -  JsAs  +  J^£  -  Jb*b  *  S  4V 


(5.22) 
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In  the  heat  expression,  (pu1CpmT)  gives  rise  to  difficulties 
because  Cpm,  p,  and  T  values  are  suppose  to  be  evaluated  at 
the  center  of  the  cell  instead  of  the  surface  of  the  cell. 
The  different  flux  components  in  Eqn.  5.22  must  be  expressed 
in  terms  of  the  value  of  Cpm,  p,  and  T  at  the  point  P  and 
its  neighbors  W,  E,  N,  S,  F,  B. 

1.  QUICK  Scheme 

In  deriving  the  finite  difference  equations,  the 
main  aim  is  to  estimate  accurate  values  of  the  dependent 
variables  at  the  surfaces  of  the  control  volume  with  stable 
properties.  One  way  to  do  this  is  by  using  the  QUICK 
scheme.  QUICK  combines  the  stability  of  the  upwind  scheme 
with  the  relative  accuracy  of  the  central  differencing 
scheme.  This  combination  is  achieved  by  using  a  parabolic 
polynomial  interpolation  to  fit  the  control  volume  at  three 
consecutive  nodal  positions .  Two  nodes  located  on  either 
side  of  the  surface  and  the  third  on  the  next  node  in  the 
upstream  direction.  H.Q.  Yang  [Ref.  13:pp.  77-89]  explains 
the  use  of  QUICK  for  a  one  dimensional  system  and  then 
expands  to  two  and  three  dimensions.  Before  QUICK  is 
applied  to  the  generalized  orthogonal  system,  a  brief 
summary  of  H.Q.  Yang’s  [Ref.  13:pp.  77-79]  explanation  of 
QUICK  as  it  applies  to  a  one  dimensional  cartesian 
coordinate  system  is  repeated  here. 

The  quadratic  interpolation  expression  for  a  non¬ 


uniform  grid  spacing  is  given  as  (see  Fig.  5.5): 


(5.23) 


( pCpmuT) e  =  GeCpm#e((Tp  +  Te)/2  -  1/8  CURVe) 

( pGpin^)  w  =  Gwcpm.w(  (Tp  +  Tw)/2  -  1/8  CURVW)  (5.24) 

where  the  upstream  weighted  curvature  terms  CURV  are  given 
by: 

CUKV0  =  4)^/Mi((TE  -  Tp)/AX0  -  (Tp  -  TJ/iXJ  if  Ge  >  0 

=  AX^iXi+1(  (T^  -Tgl/AX^  -  (Te  -y/Ly-e)  if  G0  <  0  (5.25) 

-  “/“W(Tp  -  (Tw  -  i£  G„  >  0 

*  -  V/AXe  ‘  <Tp  '  V/4V  if  S  <  0  <5-26) 

where 

AXe  =  .5(AXi  +  AXi+1) 

AXW  =  .5(AXi  +  AXi_x) 

(5.27) 

AX^  =  .5(AXi+1  +  A  Xi+2 ) 

AXww  =  •  5  (  AXj__^  +  A  X-^_2  ) 

The  expression  modified  for  the  generalized 
orthogonal  coordinate  system  would  be: 

(P  cpmulT)e  =  GeCpm.e((Tp  +  TE)/2  -  1/8  CURVNe) 


(5.28) 


T)w  —  Gwcpm. w (  (Tp  +  ""  1/®  CURVNW) 

where 


CURVNe  =  (h1Ae1)^/(h1A61)i((TE  -  T  )/(h1A01)e  -  (T  -Tj /  (hjAB1^) 


-  <h1ae1)^/(h1ae1)i+1((TEE-TE)/(h1Ae1)ee-(TE-Tp)/(h1Ae1)e)  ( 

it  Ge  <  0 


Then, 


=  (h^e1)^/  (h1A61)i  ( < Vy/lhjAS1^-  (Tp-Tw)/  (h1A01)w) 

if  Gw  c  ° 

(h1A01)e  *  -SUhiAe1)*  +  (hiAG1)!-,-!) 

(^lAO1)*,  *  ^((hxAG1)!  +  (hxAe1)!-!) 

(hxAQ-'-Jee  =  *5(  (hl  A81)  i+i  +  (h1A01)i+2) 
(hlA01)ww  =  •  5  (  (hl  A01)  i-1  +  (^iA01)i-2) 

The  conventional  finite  difference  form  of 
5.22  for  a  one  dimensional  system  is  written: 


5.29) 

if  G  >  0 
e 

5.30) 

if  G  >  0 
w 

5.31) 

5.32) 

Eqn. 


(pCpm.pTp^thlAG1  =  AETE  +  AWTW  -  ApTp  +  S^Ael) 


(5.33) 


Using  a  semi-implicit  tridiagonal  solution  procedure,  Tgg 
and  are  incorporated  into  the  source  term.  The  other 

coefficients  will  be  equal  to:  (for  a  uniform  grid) 

aE  =  cpm.e(-7Ge+3|Ge|)/16  +  Cpm. w (-Gw+ | Gw | ) +ke/h1A6 1  (5.34) 

AW  ■  Gpm.w(9Gw+3  1  Gwl  )/i®  +  Gpm.  e(Ge+|Ge| )+kw/h!  A61  (5.35) 

Ap  =  9  (Gwcpm.w“Gecpm.  e) /16  +  3nGwlcpm.w  +  I  Ge  I  cpm.e)/16 

+  (kw  +  ke)/(h1A61)  (5.36) 

Sp  =  Shx  A61  ~  cpm.e( lGel “Ge)TEE  “  cpm.w( I Gwl +Gw) TWW  (5.37) 

The  extension  of  the  QUICK  scheme  to  two  and  three 
dimensions  is  preformed  by  H.Q.  Yang  [Ref.  I3:pp.  82-89]. 
Only  the  three  dimensional  algorithm  as  it  applies  to  the 
generalized  orthogonal  coordinate  system  will  be  described 
here. 

The  3-D  QUICK  algorithm  is  based  on  locally 
quadratic  interpolation  of  temperature  on  each  control 
volume.  The  average  control  volume  temperature  is  found  in 
a  similar  manner  as  the  one  dimensional  case,  only  now  there 
are  more  points  to  consider.  A  three  dimensional 
representation  of  calculation  cell  with  a  uniform 
rectangular  grid  is  found  in  Fig.  5.6.  A  similar  situation 
applies  to  this  geometry  only  a  more  complex  figure  would 


represent  the  calculation  cell.  The  interested  reader 

should  refer  to  Yang  [Ref.  13]  for  t,he  evaluation  of  the 
temperature  and  curvilinear  terms.  The  curvature  terms  are 
derived  for  each  of  the  temperatures  and  substituted  into 
the  convection  heat  flux  expressions.  The  heat  flux  is  then 
found  going  into  each  surface  of  the  control  volume.  Once 
the  heat  flux  is  found,  it  is  substituted  into  Eqn.  5.22. 
After  separating  variables,  the  energy  equation  can  be 
written  as, 

«p  +  OW""1’!  Tp  =  ^TE  +  +  +  AsTs 

+  ^Tf  +  ^Tb  +  S^  (5.38) 

where  the  additional  source  term  is, 

Su  =  (pCpn.pT)  At  "  *EER  +  ^WR  +  ^NNR  +  ^SSR 

+  aeto  +  abbr  (5*39> 

In  the  derivations  that  follow,  all  properties  are  assumed 
to  be  at  (i,j,k)  unless  alternative  values  are  given.  If 
only  one  indice  changes,  that  will  be  the  only  one  so  noted. 
For  example  the  point  (i+l,j,k)  will  only  be  denoted  by  i+1. 
If  j  and  k  are  not  given,  they  are  assumed  to  remain 
unchanged. 


CN  =  Gn  *  uj+1  *  (h3A03)n  (h1A91)n 
CS  =  Gs  *  u?  *  (hj  AePjsChiAeijs 
CE  =  Ge  *  u l+1  *  (h2A02)e)  (h3  A03)e 
CW  =  Gw  *  \i{  *  (h2  A02  )  w  (h3A9  3 )  w 
OF  =  Gf  *  Uj^+1  *  (h^AB1)  f  (h2  A02)  f 
CB  =  Gb  *  u£  *  (h1A01)b)  (h2A0  2)b 

The  thermal  conductivity  can  be  expressed  as: 
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C0NDN1  =  kn  *  [(h3A03  *  hjAG  1)/h2AG2]n 

CONDS1  =  ks  *  [  (h3  A63  *  h]A0  1)/h2A02]s 

CONDE1  =  ke  *  [ (h2  A92  *  h^G  3)/h1A61]e 

CONDW1  =  kw  *  gh2  A02  *  h3A0  VhjAG  1]w 

CONDF1  =  kf  *  ghi  AG1  *  h2A0  2)/h3  AG3  ]  f 


CONDB1  =  kb  *  [(hike1  *  h2  A62)/h3A63]b 


(  1  CE  | 

+ 

CE) 

(  (h^e 

1)e/  (h-j^AG1 

1 

16 

(  1  CE  | 

- 

CE) 

( (h1A0 

1)e/(h1A01 

>i+l> 

1 

16 

(|CW| 

+ 

CW) 

( (h1A0 

1 )  /  (h-i  AG  ) 
w  X 

i-1 

>  £ 

(|CW| 

- 

CW) 

(  (hjAG 

1)  /(h.AG) 
w  X 

i> 

1 

16 

(  1  CN| 

+ 

CN) 

(  (h2AG 

2)n/(h2A02 

V 

1 

16" 

(|CN| 

- 

CN) 

( (h2A9 

2 )  / (h_AQ2 
n  z 

Vi1 

1 

16 

(  1  cs  | 

+ 

CS) 

(  (h2A0 

2)s/{h2Ae2 

i> 

1 

16 

( 1  cs  1 

- 

CS) 

CD 

<1 

CN 

£ 

2)s/(h2AG2 

1 

16 

(  1  CF  | 

+ 

CF) 

(  (h3AG 

3)f/(h3A03 

»k» 

1 

16 

(  1  CF  | 

- 

CF) 

(  (h3A6 

3) f/(h3A03 

)  ' 

'  k+1 ' 

1 

16 

(  1  CB  | 

4- 

CB) 

(  (h3A6 

3)b/(h3AG3 

)  k- 

1> 

1 

16 

(  [CB  | 

_ 

CB)  (  (h,A93 

),  /(h^AG3) 

1 

Aee  =  -OEM  *  (hiAeljg/Ch!  A0l)ee 
=  -CWP  *  (h1A0l)w/(h1A01)ww 
Ann  =  -CNM  *  (h2  A02 )  n/  (h2  A02 )  nn 

(5.44) 

Agg  =  "CSP  *  (h2  A02)s/(h2  A62)ss 
A^f  =  -CFM  *  (h3  Ae3)  f/(h3  A03)  ff 
aBB  =  "CBP  *  (h3  A03)b/(h3  A63)bb 

aEER  =  a1e  *  Ti+2  *  cpmi+2 

aWWR  =  A<&W  *  Ti-2  *  Cpi\_2 
T 

annr  “  ann  *  Tj+2  *  cpm^+2 

(5.45) 
T 

aSSR  -  ASS  *  Tj-2  *  cpnJj  _  2 
T 

AFFR  =  AFF  *  Tk+2  *  Cpi\+2 
T 

ABBR  “  ABB  *  Tk-2  *  Cpi"k_2 
The  intermediate  coefficients  are: 

aEI  *  [  ** .  5*CE  +  CEP  +  CEM*  ( 1  +  (h1A01)e/(h1  A0*-)  ee) 

+  CWM  *  (  (h1A01)w/(h1  A01)e)  ]  (5.46) 
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AWI  =  [  •  5*CW  +  CWM  +  CWP*(1  +  (h1A01)w/(h1  A01)ww) 

+  CEP  *  (  (hiAe  1)e/(h1  Ae^)w>]  (5.47) 

ANI  =  [ ~ • 5*CN  +  CNP  +  CNM* ( 1  +  (h2 AS2 ) n/ (h2 A02 ) nn) 

+  CSM  *  ((h2  Ae2)s/(h2A6  2)n)  ]  (5.48) 

ASI  =  [ .  5*CS  +  CSM  +  CSP*  ( 1  +  (h2  A02)s/(h2  A62)ss) 

+  CNP  *  ((h2A0  2)n/(h2A02)s)  ]  (5.49) 

aFI  =  [~ • 5*CF  +  CFP  +  CFM* ( 1  +  (h3  A03 ) f/ (h3  A93 ) f f ) 

+  CBM  *  ((h3A6  3)b/(h3A03)f)  ]  (5.50) 

Abi  =  [  .  5*CB  +  CBM  +  CBP*  ( 1  +  (h3  A03)b/(h3  A03)bb) 

+  CFP  *  ((h3A0  3)f/(h3A03)b)  ]  (5.51) 

The  coefficients  are: 

aE  =  aEI  *  cpm.E  +  CONDE1 

AW  =  AWI  *  Cpm.w  +  CONDW1 

aN  =  aNI  *  Cpm.N  +  CONDN1 

(5.52) 

AS  =  ASI  *  cpm. s  +  CONDS1 

AF  =  aFI  *  cpm.F  +  CONDF1 

aB  ~  aBI  +  cpin.B  +  CONDB1 
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Ap  is  the  summation  of  all  the  A's. 


rrv  rp  m  m  rn.  pn  rp  m  ’"T 

ap=(^  +  aw  +  an  +  as  +  af  +  ab  +  aee  +  aww 


+  4  +  4  +  4  +  4*w 


+  CONDEl  +  CONEWl  +  C0NDN2  +  CONDSl 


+  CONDF1  +  CONDBl 


(5.53) 


F .  MOMENTUM  EQUATION 

Integration  of  the  momentum  equation  over  the  control 
volume  leads  to  the  following  equation  [Ref.  20] 


(pui)t  V  +  +  -  >42As  ♦  >43Af 


-  «b\  -  si 


(5.54) 


where  if  i  =  1  ,  the  momentum  equation  is  for  u1,  i  =  2  the 
equation  is  for  u2,  and  if  i  =  3  the  equation  is  for  u3. 
Ae,W'  An,S'  and  Af,b  are  <?iven  in  Eqns.  5.14-5.16  and 
represent  areas  on  the  staggered  cell.  M13  is  the  total 
momentum  flux  along  the  e  direction  for  the  velocity 
component  u1  due  to  convection  and  diffusion.  The  subscript 
for  M  in  Eqn.  5.54  denotes  the  position  where  it  is 
evaluated . 


=  ( P  lAuj  - 


(5.55) 


The  source  term  S  includes  the  pressure  gradient,  body 


force,  Coriolis  force  and  centrifugal  forces.  The  source 
term  for  u1  is: 

S1  =  -PeAe  +  PWAW  +  pG^AV  -  Ml2(An  -  As) 

-  M^3 (Af  -  Ab)  +  (M|2  +  M33)(Ae  -  Aw)  (5.56) 

The  "stress-flux  formulation"  is  used.  The  stresses  are 
evaluated  from  prior  information  and  the  source  is  known  at 
the  present  iteration.  Yang  et  al.  [Ref.  20:pp.  11-13]  use 
the  idea  of  "stress-flux  formulation"  as  it  applies  to  the 
curvilinear  coordinate  system.  The  momentum  flux  is  given 
as : 


Mij  =  M*}  +  (a4  -a3)  (5.57) 

where 


a3  = 

y/[h.  (^i)J 

(5.58) 

l 

3  38] 

M13 

=  pu1u-!  - 

(5.59) 

The  momentum  equation  for  u1  is  now  expressed  as, 


(pu).  +  M  A  -  M'  A  +  M  A 
t  e  e  w  w  n  n 


M  A 
s  s 


.  "13.  "13. 

+  Mf  Af  -  Mb  Ab 


=  S 


(5.60) 


"  "11  ^11 
S  =  S  -  (a,  -  at)  A  +  (at  -  at)  A 
1  lee  1  1  w  w 


~  2  >  2 

(01  '  °l,nAn  +  (al  *  al>sAs 


<°1  -  °l >f  +  <°1  -  °?>b*b 


(5.61) 


The  momentum  equations  are  more  complex  since  they  are 
developed  around  a  staggered  cell.  The  additional  sheer 
stress  tensor  also  adds  to  the  complexity. 

The  01  momentum  equation  takes  almost  the  same  form  as 
the  energy  equation, 


1  1 

.  n-1  .......  1  u  1  ,  „u  1 

+  p  AV/At ) u  =  AE  uE  +  Aw 


1  .  1  .  1  .  1  ,  1  . 

.  1  ,  ,u  1  ,  ,u  1  ,  ,u  1  ,  1 

+  A^  UN  +  A_  u_  +  A„  u„  +  A„  u„  +  s  u 


s  s 


F  F  B  B 


(5.62) 


Introducing  intermediate  mass  flow  rate  per  unit  area: 


ne 


=  [(pj+1(h2A02)j+P;j(h2Ae2)j+:l)/(h2Ae2)j+(h2Ae2)j+1)]^+1 


'nw  *  [  (p< 


i.1,j+l<h2A92)j+Pi.i(h2Ae2)j+i)/((h2A02)j+(h2A62)j+1]u2.iij+1 


;se  =  [(Pj_1(h2A02).+pj(h2A02)  ._1)/((h2A62).  +  (h2Ae2)j+1)]u2 


;sw=  A§);j.1)/((h2A02)j+(h2A02)j.1)]u2_1 


:s  =  [(P1+1(h1A01)e+pi(h1A0l)6e)/((h1A61)e+(h1Ae1)ee)]u2+1 


L  =  [(Pi_1(h1A01)e+pi(h1A01)w)/((h1A01)e+(h1A01)w)]u1 


(5.6: 


’w  =  ^  ^pi-2 fr]_A0^)w+Pj_^(h-jA0'Sww)/(  (h^8^)w+ (h^O3)^)  ]u3_^ 


'fe  [(pk+l(h3A0  )k+pk(h3AG  )k+l)/(  (h3A0  )k+(h3A0  }k+l)]uk+l 


"fw  [(pi-l,k+l(h3A9  }k+pi-l(h3A0  }k+l)/((h3Ae  )k+(h3A0  )k+l) ]ui-l,k+l 


te  =  [(Pk_1(h3A03)k+p(h3A03)k_1)/({h3Ae3)k+(h3A03)k_1)Ju3 


bw  =  [(pi-l  k_1(h3A03)k+pi-l(h3Ae3)k-l)/((h^A03)v+(h^Ae3)v-T)]u^ 


Final  mass  flow  rates  through  each  control  volume  surface 


are: 

CE  =  •  5  (G  +  G  )  *  (h»A02)  *  (h.,A03) 

e  p  2  e  3  e 

CW  =  -5(Gp  +  V  *  (h2A02)w  *  {h3A03)w 

CN  "  f(Gne*(Vel)w^rw(\Ael)e)/((V8l)w+(hlAel)e)]  (hlA0l,n(h3A03)n 

(5.64) 

CS  =  ((Gse(h1A01)w+Gsw(h1A01)e)/((h;lAe1)w+(h1Ae1)e)]  (h1A01)s (h3A03)s 
CF  =  [(Gfe(h1A01)w4C,fw(h1Ae1)e)/((h1A01)w+(h1A01)e)]  (l^A©2)  f  (h^A©1)  f 
CB  =  [(Gbe(h1A01)w4<^w{h1A01)e)/((h1A01)w+(h1A01)e)]  (h2A02)b(h1A01)b 

The  local  viscosity  is: 

VISe  =  VIS 
VISW  =  VIS^_X 

VISn  =  (Vis-j+1  +  VIS  +  VIS j__]_  -j+1  +  VISi_1)/4.0 

(5.65) 

VISs  =  (VISj_x  +  VIS  +  VISi_!  +  VISi_1)/4.0 

VISf  =  (VISk+1  +  VIS  +  VISi_1>k+1  +  VISi_1)/4.0 

VISb  =  (VISk_1  +  VIS  +  +  VISi_1)/4.0 


VISN1  =  VISn  *  [ (h3A93) (h1A01)/h2A62]n 


VISS1  =  VISs  *  [  (h3Ae3)(h1A61)/h2A92]s 
VISE1  =  VISe  *  [ (h2A62) (h3Ae3)/h1A61]e 

(5.66) 

VISW1  =  VISW  *  [ (h2 A 0 2 )  (h3A63)/h1A91]w 
VISF1  =  VISf  *  [(h^e1) (h2A92)/h3A93]f 
VISB1  =  VISb  *  [ (hiAg1) (h2A92)/h3A93]b 

Equations  that  have  the  same  form  as  those  derived  in 
the  energy  equation  are  also  used  here.  These  are  Eqns. 
5.43,  5.46-5.51,  and  5.44.  With  the  point  other  than  the 
neighbor: 


u  1 

aEER  =  aEE  *  ui+2 
aWWR  =  AWW  *  ui-2 


aNNR  =  aNN  *  uj+2 
u  1 

aSSR  =  ASS  *  uj -2 
u  1 

aFFR  =  aFF  *  uk+2 
u  1 

aBBR  =  aBB  *  uk-2 


(5.67) 


all  the  coefficient  A's  are 


Ae  =  Aei  +  VISE1 


(5.68) 


=  Awl  +  VISWI 


(5.69) 


=  Ani  +  VISNI 


(5.70) 


=  AsI  +  VISSI 


(5.71) 


=  Afi  +  VISFI 


(5.72) 


aB  "  aBI  +  VISB1 


(5.73) 


and  An  is  the  summation  of  all  the  A's: 


ae  +  *5  +  +  As  +  af  +  ab  +  aee  +  *£w 


+  +  ASS  +  AFF  +  ABB 


(5.74) 


The  source  term  is  expressed  as, 


+  pi-i(h1A01)e)/((hiA01)e  +  (^AO1)  w)  *j£*nl 

+  (h2A02) j (h3A03)k[Pi-i  -  Pi]  +  Aeer  +  Awwr  +  Annr 

4  4  Appp  4  Aggg  4  RE  —  RW  4  RN  RS  4  RF  — ■  RB 

4  RRY  4  RRZ  -  RRX  -  Buoy  *  [sin(ZC(k) * (P-PEQ) 

♦(hiAOij^cosCXCd))  ]  +  [(Pi-i-PEQ  )(h!A0l)e 

i-1 

*  cos(XC(I-l))  ]/((h1A0l)w  +  (hiABljeJAV  (5.75) 

where  XC  and  ZC  represent  the  center  of  the  basic  cell.  The 
rest  of  the  variables  in  the  source  equation  can  be  found  in 
the  following  equations. 

RE  =  (a11-(u];+1-uJ)*VISe/(h1A01)e)  (h2A92  h3A03)e 

RW  =  ^1-(u1-uJ_1)*VISu/(h1A01)w)  (h^AO2  h3A03)w 

RN  =  (P^i-CuLi-ub^S  /(h9A02)n)  (huAe1  h-.A03) 

3+1  D+1  j  n  2  n  1  3  n  (5.76) 

RS  =  t^-^-u^l^VIS s/(h2A92)s)  (h^g1  h3A03)s 

RF  =  (ak+r(uk+ruk)*VISf/(h3Ae3)f)  (hiA01  h2Ae2)f 

RB  =  (a13-(u1-uJ_1)*VISt/(h3A03)b)  (h^g1  h2A92)b 


a  =  (a  )h,  A0  )  +  a“  (h,  A0x)J/(  (h^)  +(h1A0x)Q) 

l  w  L-l  l  e  1  w  1  e 

a33  =  (a13  (h,  A01)  +  a33  (h  A01)  )/( (h.  A81)  +  O1.A01)  ) 

l  w  1-1  l  e  1  w  1  e 

AU1  =  u1 

AU2  =  {[(Uj+1(h2A02)j+Uj(h2A02)  ^J/2  (h^A©2)  .]  (h]_A01)w  +  [  (u2.^  j+1  (h2A02) 

+  u2_1(h2A02) .)/2(h2A02) ] (h1A01)e}/th1A01)e+(h1A01)w) 

(5.78) 

AU3  -  ([(^+1(h3Ae3)k«3(h3Ae3)k)/2(h3Ae3)k]  <hX>w+t(ui-l,kritVe3)k 

+  u3_1(h3A03)k)/2(h3A03)k]  (h1A01)e}/((h1A01)e+(h1A01)w) 

AR  =  (p(h1A01)w  +  Pi-i(h1A01)e)/((hiA0  1)w  +  (hiAOijg) 

ARU12  =  AR  *  AUl  *  AU2 

ARU13  =  AR  *  AUl  *  AU3  (5.79) 

ARU22  =  AR  *  AU2  *  AU2 

ARU33  =  AR  *  AU3  *  AU3 


RRY  =  (cr^-ARU12)  *  (h3A6J)k  *  (  (hx  A01)  n-  (hiAe1)  s) 


RRZ  =  (a13-ARU13)  *  (h2A02)j  *  (  (l^AG1)  f- (l^AS1)  b)  (5.80) 
RRX  =  (a22-ARU22)  *  (h3A03)k*  ( (h2A02) e- (h2A02) w) 

+  (a33-ARU33)  *  (h2A62)j  *  ( (h3 A63) e- (h3 A93) w) 

The  momentum  equations  for  e2  and  e3  follow  the  same 
form,  but  are  omitted  for  the  sake  of  brevity. 

G.  PRESSURE  CORRECTION 

The  finite  difference  equations  for  energy  and  momentum 
are  used  to  solve  for  the  temperature  T  and  velocity 
components  u1,  u2 ,  u3 ,  .  The  other  two  dependent  variables, 
density  p  and  pressure  P,  are  related  through  the  equation 
of  state  and  the  mass  conservation  Eqn.  5.17.  As  Doria 
[Ref.  37]  pointed  out,  pressure  is  only  weakly  coupled  to 
the  equation  of  state.  Therefore,  the  density  is  found  from 
the  equation  of  state  by  the  use  of  updated  temperatures  and 
pressures.  The  mass  conservation  equation  is  used  to 
correct  for  the  pressure  across  each  cell  to  ensure  the  mass 
is  conserved. 

The  one  disadvantage  of  using  primitive  variables  is  in 
the  difficulty  of  calculating  the  pressure.  In  a  closed 
system,  the  pressure  changes  everywhere  if  there  is  a  net 
energy  change  in  the  system.  If  this  happens  a  global 
pressure  correction  must  be  applied.  A  local  pressure 


correction  is  also  used  to  account  for  changes  in  pressure 
within  a  region  of  the  tank  which  determines  the  velocity 
field. 

1.  Global  Pressure  Correction 

Nicolette,  et  al.  [Ref.  4]  developed  a  global 
pressure  correction  scheme  for  a  two  dimensional  square 
enclosure.  This  scheme  can  be  easily  extended  to  the 
spherical/cylindrical  geometry  of  Fire-1. 

The  overall  pressure  levels  are  increased  or 
decreased  in  a  system  of  constant  mass  and  volume  depending 
on  whether  energy  is  added  or  removed.  Knowing  the  mass  of 
the  system  can  not  change,  the  density  at  equilibrium  times 
the  cell  volume  is  equal  to  a  constant  mass  value.  To  find 
the  total  mass  of  the  system,  the  mass  of  each  cell  is 
added.  At  any  particular  time  step  later,  the  mass  must 
still  equal  the  total  mass  of  the  system  at  equilibrium. 
Summing  over  N  cells. 


l  p"(AV)i  -  l  PEQ,1UV)i  (5.81) 

where  n  indicates  some  time  step  later,  and  EQ  indicates  at 
equilibrium. 

The  density  is  a  function  of  pressure  and 
temperature  only  when  the  cell  volume  is  constant  and  an 
ideal  gas  assumption  is  made.  Using  a  *  to  indicate  an 


estimated  value  and  a  '  with  a  subscript  g  as  the  global 
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correction,  the  true  values  of  pressure  and  temperature  can 
be  expressed  as, 


P  =  P*  +  Pr 


T  =  T*  +  T, 


(5.82) 


(5.83) 


where  at  any  time  step  the  true  value  is  the  sum  of  the 
estimated  value  and  the  global  correction.  Substituting 
Eqns.  5.82  and  5.83  into  Eqn.  5.81  and  applying  the  ideal 
gas  law,  the  global  pressure  correction  can  now  be  found. 


K  =  {£  PEQCiT  ~  'I  (P*AV/T*)  }/l  ^ 


(5.84) 


The  global  pressure  correction  is  added  to  P*,  which  for  the 
first  guess  is  generally  the  pressure  at  the  previous  time 
step.  This  procedure  is  continued  until  a  pressure  is 
obtained  to  conserve  mass  in  every  cell. 

2 •  Local  Pressure  Correction 

A  local  pressure  correction  procedure  is  described 
by  Patankar  [Ref.  36:pp.  120-126]  and  Doria  [Ref.  37:pp.  26- 
32].  First  the  pressure  field  is  guessed  at  a  given  time 
step.  This  is  usually  the  pressure  field  at  the  previous 
time  step.  The  velocities  are  computed  based  on  this 
pressure  distribution.  These  velocities  are  used  in  the 
continuity  equation.  The  residual  mass  source  terra,  SmD,  is 


calculated  for  each  cell.  A  sum  of  the  absolute  values  of 
Smp  gives  an  overall  error  for  the  conservation  of  mass  for 
the  system.  If  the  residual  mass  source  term  does  not  fall 
below  some  predetermined  value,  the  pressure  must  be 
corrected  so  that  Smp  is  reduced.  Using  the  corrected 
pressure,  new  values  for  the  velocities  are  found.  The 
process  can  be  repeated  using  the  corrected  pressure  as  the 
new  guessed  value.  The  final  pressure  obtained  will  be  a 
result  of  satisfying  the  mass  conservation  equation  within 
the  desired  accuracy.  Once  the  pressures  are  known,  the 
densities  for  the  next  time  step  are  found  using  the 
equation  of  state. 

The  actual  pressure  equals  a  guess  value  plus  a 
correction. 


P  =  p*  +  p«  (5.85) 

where  a  '  indicates  a  local  correction,  *  still  indicates  a 
guessed  value. 

The  finite  difference  equation  for  the  pressure 
correction  is  in  a  similar  form  to  the  other  finite 
difference  equations. 

ApPp  =  AjjPe  +  AWPW  +  AjjPn  +  A5P5  +  aFpF 


+  AbPb  -  SmpAV 


(5.86) 


where 


pn  =  (p  (h2A62)  j  +  1  +  Pj+i(h2Ae2))/((h2Ae2)  j+1  +  (h^e  2)  ) 
ps  =  (p(h2A02)j_1  +  P  j_i(h2  A62)  )  /  (  (h2  A92)  j_x  +  (h2A02)) 


Pe  =  (p  (hiAe 1)  i+1  +  Pi+i(hiA01))/((h1Aei)i+1  +  (h1M1)) 


(5.87) 


Pw  =  (pthiAS1)!-!  +  Pi-iChiAeijJ/ffhiAel)^!  +  (11^01)) 

Pf  =  (p  (h3A0  3)  k+x  +  Pk+l(h3  AO3)  )/( (h3  A03)k+1  +  (h3A03)) 

Pb  ~  (p  (h3A0  3)  k-1  +  Pk-l(h3  AB3)  )/(  (h3  Ae3)k-1  +  (h3A03)) 


AE  =  pe  *  (h2  A02  h3  A03)g/(A^i+i  +  pfe  AV/At)  (5.88) 


2  /  / ,  uJ 


AW  -  P*  *  (h2 A0^  h3A03)w/(A“  +  pw  AV/At) 


AN  =  Pn  *  (hiA©1  h3A03)^/(Ag  +  pn  Av/At) 

j+1 

2 

As  =  ps  *  (hiA©1  h3  A03 )  s/  (Ap  +  Ps  AV/At) 


i  ,  2  .3 

Af  =  Pf  *  (hj_A0l  h2A02)f/(Ap  +  pf  AV/At) 


2  3 

Ab  =  pb  *  (hiAO1  h2A02)b/(Ap  +  Pb  AV/At) 


Ap  =  Ag  +  Ayj  +  Ajj  +  Ag  +  Ap  +  Ag 


(5.89) 


(5.90) 


(5.91) 


(5.92) 


(5.93) 


(5.94) 


3SS 


Once  the  pressure  correction  is  known,  it  is  added  to  the 
guessed  value  to  obtain  the  actual  pressure.  The  new 
velocities  are  found  from  the  following  equations. 

u1  =  u1*  +  u1'  (5.95) 

u2  =  u2*  +  u2'  (5.96) 

u3  =  u3*  +  u3'  (5.97) 


where 


ul' 

=  (pp- 

-  Pw)  (h2A0  2  h3  3 ) p/ ( Ap 

+  pw  AV/At) 

(5.98) 

u2' 

=  (pp 

2 

-  Ps)  (h^e  1  h3  A93)p/(Ap 

+  Ps  AV/At) 

(5.99) 

u3 ' 

-  (Pp 

3 

-  Pb)  (hiA0  1  h2  Ae2)p/(Ap 

+  pb  AV/At) 

(5.100) 

The  value  for  Smp  is  computed.  If  it  does  not  fall 
within  the  desired  limits,  a  new  value  for  P'  is  computed. 
The  cycle  continues  until  Smp  satisfies  the  limits  put  upon 
it. 
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COMPARISON  OF  THE  NUMERICAL  RESULTS  WITH 
THE  EXPERIMENTAL  DATA 


As  noted  before,  the  computer  model  developed  here  is 
designed  to  simulate  fires  in  Fire-1,  the  test  facility 
maintained  at  NRL.  The  general  theory  behind  the 
development  of  the  computer  model  has  been  given  in  the 
preceding  chapters.  This  chapter  will  describe  the  computer 
model  as  it  specifically  applies  uo  Fire-1.  A  brief 
explanation  of  the  required  parameters  will  be  given,  along 
with  the  solution  procedure  for  the  computer  code.  Three 
test  cases  will  then  be  compared  with  the  experimental 
results  obtained  in  Fire-1. 

The  first  test  case  (Trial  1) ,  followed  the  procedure  of 
Nies  [Ref.  31] .  The  required  heat  release  data  was 
generated  from  the  pressure  curve.  A  pressure  tracking 
routine  was  applied,  forcing  the  calculated  pressure  to 
follow  the  experimental  curve.  In  this  case,  only  the 
temperatures  can  be  compared  to  the  experimental  data  to 
verify  the  computer  code. 

The  second  test  case  (Trial  2),  used  given  heat  release 
data.  NRL  did  provide  burn  rate  data  that  was  known  to  be 
inaccurate.  The  inaccuracy  was  assumed  to  be  the  result  of 
applying  an  incorrect  scaling  factor  to  the  data.  It  seemed 
plausible  to  try  and  use  the  data  to  observe  the  general 
trend  of  the  pressure  and  temperature.  In  this  case, 


pressure  and  temperature  can  both  be  used  to  verify  the 
computer  code. 

The  third  test  case  (Trial  3)  ,  is  a  combination  of  the 
two  preceeding  test  cases.  The  heat  release  curve  is 
modified  to  follow  the  same  trend  as  in  Trial  2,  but  at  a 
magnitude  determined  by  Trial  1. 

The  computer  program  will  generate  pressure, 
temperature,  and  velocity  fields.  The  overall  pressure  of 
the  tank  at  each  time  step  will  be  compared  to  the 
experimental  results.  The  computer  program  will  also 
calculate  the  temperature  located  at  a  position 
corresponding  to  a  thermocouple  in  Fire-1  (see  Fig  1.1). 
Experimental  readings  for  three  thermocouples  will  be 
compared  to  the  computer  model  for  each  test  case. 

Besides  a  direct  comparison  to  the  experimental  results, 
velocity  and  temperature  fields  from  Trial  3  will  be  plotted 
at  various  time  intervals  and  at  selected  cross  sections. 
This  will  provide  a  way  to  show  the  development  of 
recirculating  flow  patterns  and  penetration  of  heat  with 
time. 

A.  NUMERICAL  SIMULATION  PARAMETERS 

Specific  parameters  must  be  defined  in  order  to 
represent  a  particular  fire  scenario.  The  following  items 
must  be  known:  initial  conditions,  type  of  fuel  used  and 

its  burn  rate,  location  of  the  fire,  location  of  the 
thermocouples,  physical  dimensions  and  material  composition 


of  the  tank,  plus  any  other  items  included  in  the  tank,  ie. 
decks,  fans,  etc.  The  computer  code  represents  a  fire  in 
Fire-1.  The  physical  description  along  with  the  sensor 
locations  for  Fire-1  can  be  found  in  Chapter  I.  Fire-1  is 
made  of  3/8"  ASTM — 285  Grade  C  steel.  The  material 
properties  required  for  the  program  are  listed  in  Table  2. 


TABLE  2 

SPECIFIC  PARAMETERS 

WALL  CHARACTERISTICS 
Thickness 
Specific  Heat 
Thermal  Conductivity 
Density 

FIRE  CHARACTERISTICS 
Type  of  Fuel 
Burn  Rate 

Initial  Temperature 
Initial  Pressure 
Location 


The  fire  scenario  considered  here  does  not  include  any 
decks,  fans,  or  anything  else  in  the  interior  of  Fire-1 
besides  the  fire  itself.  The  fuel  used  was  methanol.  The 
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3/8  in 

.1  Btu/ ( lbm  F) 

25  Btu/ (hr  ft  F) 

487  lbm/ft3 

Methanol 
Provided 
35 . 6°C 
1 . 0  ATM 

Center  of  Fire-1 

23.1  ft  from  endcap 
3.21  ft  from  bottom 
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location  of  the  fire  was  at  the  center  of  the  tank;  23.1 
feet  from  either  endcap,  and  elevated  3.21  feet  from  the 
bottom  of  the  tank.  The  ambient,  or  initial,  temperature 
and  pressure  was  35.6°C  and  1  atmosphere  respectfully. 

Once  the  physical  characteristics  are  entered  into  the 
program,  the  grid  size  and  time  step  must  be  determined. 
Due  to  the  spherical/cylindrical  geometry  of  Fire-1,  a 
uniform  grid  is  not  practical.  The  grid  is  represented  by 
Figures  6.1  and  6.2.  Instead  of  an  X,Y,Z,  grid,  it  is  a  9, 
R,  <J>  grid  for  the  spherical  endcaps  and  0  ,  R,  Z  grid  for  the 
cylindrical  midsection.  The  theta  direction  has  20  cells. 
The  R  direction  has  12  cells  representing  the  interior  of 
the  tank  and  one  cell  representing  the  tank  wall.  Another 
cell  surrounds  the  vicinity  of  r  =  0  and  is  used  to  avoid 
singularity.  Each  spherical  endcap  also  has  one  cell  for 
singularity  problems  along  with  a  division  of  five  cells. 
The  cylindrical  midsection  has  18  cells  in  the  Z  direction. 
Further  information  can  be  found  in  Table  3 .  Increasing  the 
number  of  grid  points  was  not  practical  because  of  the  large 
amount  of  CPU  time  already  required  for  this  grid. 

The  stability  of  the  computational  results  depended  on 
the  time  step  chosen.  Initial  calculations  were  done  with  a 
time  step  of  .0288  sec.  Once  instability  was  reached,  the 
program  was  continued  with  a  smaller  time  step.  The  bulk  of 
the  program  was  accomplished  at  a  time  step  of  .0192  sec. 
Approximately  80  time  steps  were  accomplished  per  hour  of 
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Figure  6.1  Vertical  Cut  Through  the  Computer  Model 


TABLE  3 


COMPUTER  MODEL  PARAMETERS 

GRID 

Total  number  of  interior  cells  6720  (20  x  12  x  28) 

Total  number  of  tank  wall  cells  560  (20  x  28) 

Total  number  of  wall  radiation  zones  560 

Total  number  of  fire  radiation  zones  19 

Number  of  cells  in  the  theta  direction  20 

Number  of  cells  in  the  R  direction  14 

interior  cells  12 

-  wall  cells  1 

r  =  0  ,  stability  1 

Number  of  cells  in  the  phi  direction  12 

-  each  end  cap  5 

-  stability  (each  end  cap)  1 

Number  of  cells  in  the  z  direction  18 

TIME  STEP 

Varied  0.0192  -  .0288  sec 

CPU  TIME 

80  time  steps/CPU  hr  ~  1  sec  fire  time 

EXTERNAL  HEAT  TRANSFER  COEFFICIENT  5.0  Btu/(hr  ft  F) 

CPU  time.  This  averaged  to  one  sec  of  fire  time  for  every 
hour  of  CPU  time. 

The  external  heat  transfer  coefficient  is  not  known.  It 
is  estimated  and  becomes  another  parameter  that  can  be 
changed. 
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B.  SOLUTION  PROCEDURE 

The  total  computer  model  is  actually  composed  of  two 
separate  programs.  The  radiation  program  in  Appendix  A 
calculates  the  view  factors  and  then  inverts  them  to  provide 
the  main  program  with  a  matrix  of  the  form  described  in  Eqn. 
(3.17).  This  program  only  needs  to  be  run  once  with  the 
results  stored  and  read  when  needed. 

The  main  program  follows  the  same  type  of  flow  chart  as 
described  by  Nies  [Ref.  31:pp.  56-57].  After  the  initial 
parameters  are  read,  the  effective  viscosity  is  found  using 
the  subroutine  CALVIS.  The  radiation  flux  to  the  walls  is 
updated  every  two  time  steps.  The  subroutines  to  calculate 
temperature,  pressure,  and  velocity,  all  use  a  semi-implicit 
technique  to  solve  the  matrices  formed  by  applying  the 
finite  difference  equations  discussed  in  Chapter  V.  First 
the  temperature  is  found  using  CALT,  then  the  global 
pressure  is  found  followed  by  the  density.  An  iteration 
loop  is  entered  to  find  the  three  velocity  components  and 
local  pressure  correction.  The  local  pressure  correction  is 
then  used  to  update  the  velocities.  The  continuity  equation 
is  applied  to  each  cell  to  calculate  the  residual  mass.  The 
sum  of  the  absolute  value  of  all  the  residual  mass  terms  is 
called  RESORM.  If  this  term  is  extremely  large,  i.e., 
greater  than  ten,  the  program  will  stop  indicating  an 
instability  problem.  In  the  past  this  problem  was  resolved 
by  lowering  the  time  step.  If  the  RESORM  term  is  larger 
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than  the  tolerance  value  and  below  ten,  the  program  will 
iterate  the  solution  by  recalculating  the  velocities  and 
pressures.  Because  of  the  large  amount  of  CPU  time  already 
required,  the  temperature,  global  pressure,  and  density  are 
recalculated  every  third  iteration.  This  also  allows  for 
the  velocities  to  stabilize  before  changing  the  temperature. 
The  iterative  procedure  will  continue  before  proceeding  to 
the  next  time  step  unless  one  of  the  following  three  things 
happen;  the  maximum  number  of  iterations  has  been  reached, 
the  RESORM  term  is  less  than  the  tolerance,  or  if  the  CPU 
time  for  that  particular  run  is  almost  exhausted. 

C.  TRIAL  1 — PRESSURE  TRACKING 

Because  of  the  uncertainty  of  the  burn  rate  data 
provided  by  NRL,  it  was  decided  to  use  the  method  developed 
by  Nies  [Ref.  31]  for  one  case.  This  method  is  a  temporary 
solution  pending  accurate  burn  rate  data.  The  first 
approximation  is  to  assume  the  energy  provided  to  a  cavity 
is  used  almost  exclusively  to  raise  the  pressure.  This 
assumes  the  conduction  through  the  tank  walls  is  minimal  and 
the  motion  of  the  gas  does  not  require  a  large  percentage  of 
the  energy. 

Assuming  the  heat  input  is  uniform,  the  rate  of  heat 
input  is  a  constant  times  the  temperature.  Using  the  ideal 
gas  law  P  =  p  RT  with  p  and  R  being  constant,  the  heat 
release  rate  is  proportional  to  the  change  in  pressure  with 


respect  to  time.  From  the  experimental  pressure  curve,  the 
first  derivative  can  be  found. 

Nies  [Ref.  31]  developed  a  pressure  tracking  routine  to 
force  the  calculated  pressure  to  follow  the  experimental 
pressure  curve.  This  was  done  to  account  for  the  conduction 
losses  as  time  increases. 

The  correction  factor  is  computed  as  follows: 


Correction  = 


‘data 


data 


(6.1) 


where  Pcomp  is  the  computed  pressure,  PCOmp  is  the  computed 
pressure  from  the  previous  time  step,  and  Pdata  i-s  the 
experimental  pressure. 

1.  Numerical  Results  of  Trial  1 

The  computed  heat  input  curve  has  oscillations 
present.  Fig.  6.3.  Nies  [Ref.  31]  had  a  similar  result. 
Oscillations  will  enter  into  this  case  due  to  the  correcting 
scheme  and  the  use  of  the  derivative  of  numerical  data. 

The  pressure  of  the  tank  over  240  sec  of  fire  time 
is  found  in  Figure  6.4.  This  curve  illustrates  how  the 
pressure  tracking  routine  forced  the  calculated  values  of 
pressure  to  follow  the  curve  fit  through  the  experimental 


points. 


The  only  other  way  to  verify  the  model  is  to  compare 


the  thermocouple  temperatures  with  the  temperatures  obtained 
by  the  model  at  the  same  location.  This  model  is  of  the 
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same  geometry  as  Fire-1  eliminating  the  requirement  of 
finding  an  equivalent  thermocouple  location  as  Nies  [Ref. 
31]  had  to  do.  The  corresponding  temperature  is  found  by 
interpolating  the  temperatures  of  the  surrounding  cells  of 
the  actual  thermocouple  location. 

Temperatures  from  three  thermocouples  were  chosen 
for  comparison  with  the  experimental  data.  These 
thermocouples  showed  the  greatest  change  in  temperature 
during  the  fire.  The  temperatures  in  the  lower  region  of 
the  tank  changed  only  slightly.  For  this  reason,  they  were 
not  compared.  All  three  thermocouples  are  located  in  the 
south  hemispherical  endcap  as  shown  in  Fig  1.1. 
Thermocouple  1  is  located  79  inches  above  the  midplane  of 
the  tank.  Thermocouple  2  is  one  foot  below  thermocouple  1, 
and  thermocouple  4  is  two  feet  below  thermocouple  2 .  The 
comparison  between  the  computational  and  experimental 
results  can  be  found  in  Fig  6. 5-6. 7.  The  pressure  tracking 
routine  forced  the  pressure  to  go  through  slight  variations. 
Because  of  this,  the  data  for  the  heat  input  rate  and  the 
corresponding  temperatures  amplified  these  variations  by 
going  through  large  oscillations.  The  computational  results 
for  all  three  thermocouples  have  the  temperatures  exceeding 
the  experimental  results  by  at  least  20°C  .  The  curves  do 
tend  to  level  off  at  about  the  same  time  as  the  experimental 
curves.  This  indicates  that  the  same  time  is  predicted  for 
a  quasi-steady  state  condition  where  heat  in  equals  heat  out 
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for  both  the  model  and  Fire-1.  The  overall  level  of  the  | 

temperature  comparison  is  acceptable,  but  the  oscillations  ! 

I 

are  too  large.  , 

i 

i 

D.  TRIAL  2 — SIMULATED  BURN  RATES 

NRL  did  provide  a  set  of  burn  rate  data  for  the  methanol 
fire.  During  the  experiment,  there  were  indications  of  the 
burn  rate  data  not  being  accurately  recorded.  The  error  was 
believed  to  be  associated  with  a  scaling  factor.  Even 
though  the  accuracy  of  this  data  was  suspect,  it  was  used  to  \ 

t 

predict  how  pressure  and  temperature  would  respond  to  burn  ' 

rate  data  input.  A  third  order  polynomial  curve  fit  was 
applied  through  the  burn  rate  data  and  entered  into  the 
program. 

1.  Numerical  Results  of  Trial  2 

The  pressure  curve.  Fig.  6.8,  had  an  initial  gradual 
slope  followed  by  a  sharp  increase  in  pressure.  The  same 
three  thermocouple  temperatures  are  used  to  compare  the 
experimental  data  to  the  computer  model.  The  temperature 
curves  are  found  in  Figs.  6.9-6.11.  The  computational 
temperature  initially  followed  the  experimental  curve,  but 
then  overshot  the  experimental  readings  by  a  factor  of  two 
for  thermocouples  1  and  2.  Thermocouple  4  had  temperature 
readings  below  the  experimental  temperature,  but  the 
numerical  result  was  beginning  to  show  an  increase  in  slope 
at  the  end  of  the  computer  run.  Both  temperature  and 


pressure  did  not  show  any  sign  of  leveling  off,  indicating 
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the  heat  input  curve  was  too  high.  By  applying  a  steady 
heat  input  curve,  the  temperature  and  pressure  did  not 
oscillate  as  in  Trial  1.  Therefore,  oscillations  were  not  a 
problem,  but  the  levels  for  temperature  and  pressure  were 
not  correct. 

D.  TRIAL  3 — COMBINATION 

After  reviewing  the  results  of  Trial  1  and  Trial  2,  it 
was  decided  to  use  a  combination  of  the  two  cases.  Trial  1 
involved  a  pressure  tracking  routine  known  to  cause  large 
oscillations  in  heat  input  and  temperature  curves.  In  Trial 
2,  the  experimental  burn  rate  used  was  too  high.  This 
resulted  in  exceeding  experimental  pressure  and  temperature 
data.  The  combination  case  will  use  the  burn  rate  data 
generated  from  Trial  1.  However,  this  data  will  be  modified 
by  applying  a  third  order  polynomial  fit  through  the  data 
points  (see  Fig.  6.12).  This  gives  a  burn  rate  curve  of  the 
same  form  as  Trial  2,  but  modified  in  terms  of  magnitude  to 
allow  comparison  between  the  numerical  results  and  the 
experimental  data.  Using  a  burn  rate  curve  as  input,  both 
temperature  and  pressure  are  available  for  validation  of  the 
computer  code. 

1 .  Numerical  Results  of  Trial  3 

The  pressure  of  the  tank  over  130  sec  of  fire  time 
is  found  in  Fig.  6.13.  Unfortunately,  due  to  the  large 
amount  of  CPU  time  required  to  run  one  case,  the  shorter  run 
time  expressed  here  was  all  that  could  be  accomplished  for 
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this  thesis.  Early  indications  show  the  pressure  obtained 
by  the  computer  code  fall  below  the  experimental  curve. 

The  temperature  comparison  for  the  three 
thermocouples  can  be  found  in  Figs.  6.14-6.16.  The 
temperatures  also  show  slight  oscillations,  but  not  to  the 
extent  as  Trial  1.  Thermocouple  1  tracked  closely  to  the 
experimental  temperatures.  It  is  interesting  to  note  the 
experimental  temperature  did  start  at  a  higher  temperature. 
The  initial  assumption  used  in  the  computer  code  was  for  all 
the  temperatures  in  the  tank  to  equal  the  ambient 
temperature,  which  was  35.6°C  on  the  day  of  the  test. 
However,  by  extracting  the  data  from  the  curves  provided  by 
NRL,  Fig.  6.17,  the  initial  temperature  of  the  thermocouples 
varied.  This  could  be  due  to  a  slight  internal  heating  of 
Fire-l  by  external  means,  i.e.,  the  sun.  Fire-1  is  not 
enclosed  inside  a  building.  If  the  initial  temperature  of 
the  computed  thermocouple  readings  were  increased  to  match 
the  experimental  data,  the  curves  would  show  a  closer 
correlation. 

Thermocouple  4  has  experimental  points  that  are 
extremely  hard  to  read  in  the  initial  few  minutes  of  the 
test  run.  This  could  result  in  a  misrepresentation  of  the 
experimental  curve.  The  experimental  temperature  curves 
used  for  comparison  between  the  computer  model  are  generated 
from  applying  a  smooth  curve  through  a  few  experimental 
points  from  Fig.  6.17.  Actually  the  experimental 
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temperatures  do  have  slight  oscillations  and  uncertainty 
values  associated  with  them. 


F.  RESULTS 

Of  the  three  test  cases,  Trial  3  has  the  best 
correlation  to  the  experimental  data.  However,  this  was  the 
result  of  combining  the  two  previous  trials.  This  further 
amplifies  the  need  for  accurate  heat  release  data.  It  is 
not  practical  to  do  an  entire  computer  simulation  using  the 
principles  of  Trii?  1  just  to  obtain  a  heat  release  curve. 
And  then  use  this  curve  as  input  to  run  the  actual  case.  It 
is  necessary  to  have  the  required  experimental  heat  release 
data  as  input  in  order  to  accurately  assess  the  computer 
code. 

G.  VELOCITY  PROFILE  AND  ISOTHERM  PLOTS 

The  velocity  profile  and  isotherm  plots  are  given  for 
Trial  3  since  this  trial  is  the  best  representation  of  the 
actual  fire  in  Fire-1.  Fig.  6.18  shows  the  location  of  the 
two-dimensional  cross  sectional  areas  chosen  for 
examination.  The  three  representative  locations  are  located 
at  the  midplane  through  the  center  of  the  tank  and  through  a 
circular  cross  section  at  the  fire  and  thermocouple  rack. 
Fig  6.19  through  6.30  show  the  three  planar  views  of  the 
velocity  and  isotherm  plots  at  30,  60,  90,  and  130  sec. 

These  are  two  dimensional  plots  of  a  three  dimensional 
model.  This  is  the  only  means  available  at  this  time  to 
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Figure  6.20 


Velocity  and  Isotherm  Plots  after 
30  Sec  at  Fire  Center 
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Figure  6.22  Velocity  and  Isotherm  Plots  after  60  Sec  at  Midplane 
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Figure  6.28  Velocity  and  Isotherm  Plots  after  130  Sec  at  Midplane 


display  the  data.  These  plots  can  be  misleading,  especially 
if  the  velocity  appears  to  be  flowing  to  a  single  point. 
The  single  point  actually  represents  the  tip  of  another 
velocity  vector  in  the  third  dimension. 

The  velocity  fields  were  not  plotted  using  the  same 
length  scale.  This  can  be  deceiving  unless  aware  of  this 
point.  Therefore  some  of  the  plots  appear  to  exhibit  a  more 
pronounced  velocity  field  when  in  fact  it  was  just  the  scale 
used.  The  isotherms  are  constant  for  each  of  the  plots, 
each  line  representing  a  20°C  range  in  temperature. 

At  3  0  seconds,  most  of  the  tank  is  still  at  ambient 
temperature.  Isotherms  are  concentrated  above  the  location 
of  the  fire,  indicating  the  hot  gases  are  confined  to  this 
region.  The  cross  section  at  the  thermocouple  rack  does 
not  see  any  noticeable  change  of  temperature  at  this  time. 
The  velocity  field  at  the  midplane  of  the  tank  exhibits  a 
strong  upward  flow  in  the  region  of  the  fire.  This  flow 
extends  to  the  overhead  resulting  in  a  ceiling  jet  across 
the  top  of  the  tank.  The  velocity  field  tends  to  follow  the 
geometry  of  the  tank,  recirculating  back  to  the  center.  The 
lower  region  of  the  tank  exhibits  very  little  motion.  The 
velocity  field  at  the  thermocouple  rack  has  a  downward  flow 
that  extends  to  a  recirculating  flow  in  the  third  dimension. 

At  the  following  time  intervals,  the  isotherms  begin  to 
extend  further  into  the  tank.  This  is  a  valuable  tool  to 
see  how  the  hot  gases  extend  into  the  tank  with  respect  to 
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time.  The  velocity  fields  show  unique  flow  patterns  at  the 
three  cross  sections  at  each  of  the  time  intervals.  The 
recirculation  patterns  follow  the  tank  geometry,  but  do 
develop  a  changing  flow  pattern  with  respect  to  velocity  and 
direction.  This  will  become  important  when  smoke  is  entered 
into  the  program  to  see  how  smoke  penetrates  the  tank  and 
where  it  becomes  concentrated. 


■N 
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VII.  CONCLUSIONS  AND  RECOMMENDATIONS 


A.  CONCLUSIONS 

The  conclusions  drawn  from  this  initial  simulation  of 
the  spherical/cylindrical  geometry  of  the  computer  code  are 
as  follows: 

1)  The  pressure  tracking  case.  Trial  1,  provided  a 
numerically  generated  heat  release  curve  from  other 
available  sources.  The  pressure  was  forced  to  follow 
the  experimental  cu..\i.  causing  large  oscillations  in 
the  heat  release  and  temperature  data. 

2)  Trial  2  used  a  third  order  polynomial  fit  of  the 
experimental  data  provided  by  NRL.  The  pressure  and 
temperature  did  not  oscillate  greatly,  but  the  values 
obtained  were  very  high.  This  indicated  the 
experimental  burn  rate  data  was  also  too  high.  It  was 
known  at  the  onset  that  the  heat  release  data  could  be 
off  by  some  unknown  scaling  factor. 

3)  Of  the  three  test  cases  examined.  Trial  3  was  a  better 
representation  of  the  fire  in  Fire-l.  This  case 
combined  the  heat  release  rate  levels  obtained  from 
Trial  1  with  a  third  order  polynomial  fit  variation 
from  Trial  2.  The  results  were  a  realistic  burn  rate 
curve  to  use  as  input  into  the  computer  code.  The 
temperature  readings  at  the  three  thermocouples  did 
correspond  to  the  experimental  data  during  the  first 
130  sec  of  fire  time.  The  pressure  was  maintained 
below  the  experimental  curve. 

4)  A  realistic  flow  pattern  has  been  observed  for  Trial 
3.  The  fire  plume  was  shown  to  increase  the  velocity 
of  the  gas  toward  the  overhead  resulting  in  a  ceiling 
jet.  The  flow  follows  the  geometry  of  the  tank  and 
develops  various  recirculating  flow  patterns  with 
respect  to  time. 

5)  The  isotherm  field  plots  for  Trial  3  illustrate  how 
the  hot  gases  are  concentrated  in  the  overhead.  With 
time,  the  isotherms  begin  to  stratify  and  penetrate 
the  lower  regions  of  the  tank. 
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6)  Trial  3  will  be  continued  to  ensure  the  temperature 
and  pressure  curves  maintain  a  proper  level  in 
comparison  to  the  experimental  data  beyond  13  0 
seconds.  Further  validation  of  the  computer  model 
should  be  done  with  accurate  heat  release  rate  data 
before  additional  complexities  are  incorporated  into 
the  model. 


B.  RECOMMENDATIONS 

The  following  are  recommendations  for  the  future  work 
regarding  computer  simulation  of  a  fire  in  Fire-1: 

1)  Continue  with  the  code  validation  of  the 

spherical/cylindrical  geometry  by  validating  the  model 
with  experimental  heat  release  data. 

2)  Explore  the  possibility  of  transferring  the  program  to 

a  supercomputer.  The  large  amount  of  CPU  time  it 

takes  to  run  this  program  necessitates  the  use  of  a 
larger,  faster  computer. 

3)  Incorporate  more  computer  graphics  to  display  the 
results.  This  program  generates  a  huge  amount  of 
data.  The  best  way  to  fully  understand  what  is 
happening  in  Fire-1  is  to  see  it  displayed  in  three 
dimensional  form.  The  use  of  color  graphics  would  be 
the  more  preferable  option. 

4)  Begin  adding  complex  interior  partitioning.  The  next 
step  in  the  computer  code  would  be  the  addition  of 
decks  and  recirculating  fans.  The  computer  code  has 
been  developed  and  is  now  waiting  for  validation 
studies. 

5)  Improve  the  physical  models  already  present  and 
incorporate  other  models.  A  combustion  model  will  be 
added  to  the  computer  code  to  account  for  the 
distribution  of  the  heat  release  rates  from  the  flame. 
Gaseous  radiation  will  be  included  in  the  radiation 
model  and  the  turbulence  model  will  be  updated. 

6)  The  ultimate  goal  of  this  project  is  to  develop  a 
computer  model  that  will  be  able  to  simulate  a 
shipboard  fire  scenario.  This  model  will  then  be  able 
to  assist  in  the  design  of  a  ship  and  fire  control 
tools . 
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APPENDIX  A 

FORTRAN  LISTING  OF  THE  RADIATION  MODEL 


Qkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk-k-k'k'kkk-k-kkkk-kkkkkkkk'kkkkk'kkkk'kkkkk-k-kkk'k 

COMPUTER  PROGRAM  FOR  THREE-DIMENSIONAL  SURFACE  * 

RADIATION  FOR  THE  SPHERICAL/CYLINDRICAL  GEOMETRY  * 

OF  THE  NAVY  STORAGE  TANK,  FIRE-1  * 

DEVELOPED  BY  * 

J.K.  RAYCRAFT  AND  M.D.  KELLEHER  * 

k 

NAVAL  POSTGRADUATE  SCHOOL  * 

MONTEREY,  CA  93940  * 

AUGUST  1937  * 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk-k-k'kk-kk-kk'kkk-k-kk-kk'kk’kk'k-k'kkkk-kkkk'k'k’kk'kkkkkkk 

x 

THERE  ARE  MI  DIVISIONS  IN  THE  THETA  DIRECTION  * 

MJ  DIVISIONS  IN  THE  R  DIRECTION  * 

UK  DIVISIONS  IN  THE  Z  DIRECTION  * 

HKN  ON  THE  NORTH  SPHERICAL  END  CAP  * 

MKS  ON  THE  SOUTH  SPHERICAL  END  CAP  * 

MKC  ON  THE  CYLINDRICAL  PORTION  OF  THE  TANK  * 

(  MKN  +  MKS  +  MKC  =  MK)  * 

FOR  THE  NORTH  SPHERICAL  END  CAP  THERE  ARE  MI*MKN  DIVISIONS  * 
NUMBERED  1  TO  MI*MKN  * 

FOR  THE  CYLINDER  THERE  ARE  MI*MKC  DIVISIONS  * 

NUMBERED  MI *MKN  +  1  TO  MI  *  (MKN  +  MKC)  * 

FOR  THE  SOUTH  SPHERICAL  END  CAP  THERE  ARE  MI*MKS  DIVISIONS  * 
NUMBERED  MI* (MKN  +  MKC)  +1  TO  MI*MK  * 

MREGN1  REPRESENTS  THE  NORTH  SPHERICAL  END  CAP  * 

IREGN1  IS  THE  FINAL  CELL  NUMBER  IN  THE  NORTH  CAP  (MI*MKN)  * 

MREGN2  REPRESENTS  THE  CYLINDER,  STARTING  AT  IREGN1  +1  * 

IREGN2  IS  THE  FINAL  CELL  NUMBER  IN  THE  CYLINDER  (HI* (MKN+MKC) )  * 
MREGN3  REPRESENTS  THE  SOUTH  SPHERICAL  END  CAP, START  AT  IREGN2+1* 
IREGN3  IS  THE  FINAL  CELL  NUMBER  IN  THE  SOUTH  CAP  (MI*MK)  * 

THE  SCHEME  TO  NUMBER  THE  CELLS  IS  AS  FOLLOWS:  * 

KSM1 , KSM2  REPRESENT  THE  NORTH  SPHERE  * 

1  TO  IREGN1  * 

KSM3.KSM4  REPRESENT  THE  CYLINDER  * 

MREGN2  TO  IREGN2  * 

KSM5 ,KSM6  REPRESENT  THE  SOUTH  SPHERE  * 

THE  REASON  EACH  REGION  IS  REPRESENTED  BY  TWO  SETS  OF  THE  SAME  * 
NUMBERS  IS  BECAUSE  THE  REGIONS  "SEE"  THEMSELVES,  IE.  A  NORTH  * 
SPHERE  CELL  SEES  OTHER  NORTH  SPHERE  CELLS  AND  THERE  HAS  TO  BE  * 
A  WAY  TO  REPRESENT  VFMXR(5,5).  * 

THE  CELL  NUMBERING  IS  ACCOMPLISHED  IN  "DO  LOOPS".  STARTING  AT  * 

THE  NORTH  END,  THE  FIRST  VALUE  FOR  THETA  AND  K  IS  CELL  ONE,  * 

THE  STARTING  NUMBER  FOR  EACH  REGION  IS  KSM_(MINIMUM  VALUE)  * 
THE  VIEW  FACTOR  TO  ALL  OTHER  CELLS  IS  ACCOMPLISHED  BY  FIRST  * 
FINDING  THE  OTHER  CELLS  IN  THE  SPHERE,  KSM2  VARIES  FROM  1  TO  * 

MI*MK ,  WITH  THETA  VARYING  CCW  FIRST  THEN  Z.  EACH  TIME  THROUGH  * 

THE  DO  LOOP  TO  CHANGE  EITHER  THETA  OR  Z,  KSM2  INCREASES  BY  1 .  * 

ONCE  THE  CYLINDER  BOUNDARY  IS  REACHED,  A  NEW  INNER  DO  LOOP  IS  * 
USED,  THIS  TIME  VARYING  KSM3 ,  AND  THEN  KSM5  FOR  THE  SOUTH  * 

SPHERE.  * 

THE  NUMBERING  SYSTEM  FOR  THE  CELLS  IS  FROM  NORTH  TO  SOUTH,  * 

SPIRALING  AROUND  THE  TANK,  VARYING  THETA  THEN  Z.  RECIFROSITY  * 

IS  USED  TO  FIND  CORRESPONDING  VALUES  IN  THE  MATRIX,  IE.  * 

VFMXR( 5 , 250)  AND  VFMXR(250 , 5) .  * 
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THE  NODE  NUMBERING  SYSTEM  IS  AS  FOLLOWS:  * 

THETA  DIRECTION  * 

STARTING  NODE  =  MIS  ,  FINAL  NODE  =  MI 

HI  =  HI  -  NIS  * 

Z  DIRECTION  * 

STARTING  NODE  (NORTH  END)  =  NKS  * 

NODE  BETWEEN  NORTH  END  CAP  AND  CYLINDER  =  NA  * 

NODE  BETWEEN  CYLINDER  AND  SOUTH  END  CAP  =  NB 
WHERE  MK  =  NK  -  NKS  * 

NA  =  NKS  +  MKN  * 

N3  =  NKS  +  (  MKN  +  MKC)  * 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

COMMON/BLl/  NIS , NI , NKS , NK , HA , NB , MI , MK , MKN , MKS , MKC , CL , DTHETA , 

&  DPHIN , DFHIS , DZ1 , DZ2 , DZ3 , Z1 , R , PI , ZCYL1 , ZCYL2 

COMMON/BL2/  PHI(33) , THETA ( 2 : 21 , 33 ) ,Z(2:21,33) ,AREA(10) , AREAC 

COMHON/BL3/  MREGN1 , MREGN2 , MREGN3 , IREGN1 , IREGM2 , IREGN3 , KSM1 , KSM2 , 

&  KSM3 , KSM4 , KSM5 , KSM6 

COMMON/ 3L4/  VFMXR( 579 , 579 ) ,  DELY(2 ,12) ,RF 

COMMON/ 3L 5 /WVFNN( 2:21, 3:7, 2:21, 3:7) , WVFSS ( 2 : 21 , 26 : 30 , 2 : 21 , 26 : 30 ) , 
&  WVFSM (2:21,26:30,2:21,3:7) . WVFMC(2 :21, 3:7, 2:21, 3:25) , 

&  WVFCS(2:21, 8:25, 2:21, 26:30) ,  WVFSC(2 : 21 , 26 : 30 , 2 : 21 , 8 : 25 ) , 

&  WVFNS (2 :21, 3:7, 2:21, 26:30), WVFCN (2:21,3:25,2:21,3:7) , 

&WVFCC(2: 21, 8:25, 2:21 ,8:25) 

COMMON/BL7/  NJS , NJ , MJ , HSZ , FPAND , HSANG (2,12),Y(2,12), HSY , DIAFP , 
&VFHNS (2 ,12,2:21,3:7) , VFHSS ( 2 , 12 , 2 : 21 , 26 : 30 ) , VFHC(2 , 12 , 2 : 21 , 8 : 25 ) , 
&VFNSH(2 :21 ,3:7,2,12) , VFSSH(2 : 21 , 25 :30 , 2 , 12  ,VFCH(2 :21 , 8 :25 , 2 , 12 


C0MM0N/BLK8/VFMXC (579,579) ,VFMXIN( 579 , 579) , 

&  CONSRA,  NHSZ, AR( 579), EM( 579), IFIRE 

kkkkkkkkkkkkkkkkkk  kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

THE  MAIN  PROGRAM  ESTABLISHES  THE  REOUIRED  INPUT  VARIABLES  FOR  THE  * 

SUCESSFUL  RUN  OF  THE  PROGRAM.  IT  ALSO  WILL  CALCULATE  THE  SIZE  * 

OF  THE  REGIGNS  INVOLVED  FOR  THE  'I,J,K'  INDICIES.  * 

FROM  THIS  PROGRAM  ALL  OF  THE  OTHER  SUBROUTINES  ARE  CALLED.  * 

THE  DEFINITION  OF  THE  VARIABLES  USED  IN  THIS  SUBROUTINE  ARE  AS  * 

FOLLOWS :  * 

NKS  =  STARTING  NODE  NUMBER  FOR  THE  K  INDICE  (Z)  * 

NA  =  NODE  NUMBER  BETWEEN  THE  NORTH  SPHERE  AND  THE  * 

CYLINDER  * 

NB  =  NODE  NUMBER  BETWEED  THE  CYLINDER  AND  THE  * 

SOUTH  SPHERE  * 

NK  =  FINAL  NODE  NUMBER  FOR  THE  K  INDICE  (SOUTH  END  * 

NIS  =  STARTING  NODE  NUMBER  FOR  THE  I  INDICE  (THETA)  * 

NI  =  FINAL  NODE  NUMBER  FOR  THE  I  INDICE  * 

NJS  =  STARTING  NODE  NUMBER  FOR  THE  J  INDICE  (R) 

NJ  =  FINAL  NODE  NUMBER  FOR  THE  J  INDICE 

R  =  THE  RADIUS  OF  BOTH  THE  SPHERE  AND  CYLINDER  (FT)* 

CL  =  THE  CYLINDER  LENGTH  ALONG  THE  Z  AXIS  (FT)  * 

ZCYL1  =  EVERYTHING  IS  MEASURED  FROM  THE  NORTH  END,  * 

THEREFORE  THE  Z  AXIS  GOES  FROM  0  TO  48.6  (TOTAL* 
LENGTH  OF  THE  PRESSURE  VESSEL)  THIS  IS  THE  Z  * 
DISTANCE  WHERE  THE  CYLINDER  STARTS  (FT)  * 

ZCYL2  =  THE  DISTANCE  WHERE  THE  CYLINDER  STOPS  AND  THE  * 

SOUTH  SPHERE  BEGINS  (FT)  * 

FPAND  =  THE  NUMBER  OF  FIRE  CELLS  THAT  ARE  BELOW  THE  * 

FIRE  PAN  * 

DIAFP  =  THE  DIAMETER  OF  THE  FIRE  PAN  (FT)  * 

HSZ  =  THE  Z  DISTANCE  WHERE  THE  HEAT  SOURCE  IS  LOCATED* 

IFIRE  =  A  DUMMY  VARIABLE  THAT  WHEN  EQUAL  TO  0  WILL  * 

ALLOW  THE  PROGRAM  TO  IGNORE  IHE  SHADING  CAUSED  * 
BY  THE  FIRE  CELLS.  IF  THE  FIRE  IS  CONSIDERED  * 
IFIRE  SHOULD  BE  ANYTHING  EXCEPT  ZERO.  SHADING  * 
REFERS  TO  THE  VIEW  FACTORS  BETWEEN  TANK  CELLS  * 
RF  =  RADIUS  OF  THE  FIRE  PAN  (FT)  A 


'  _«*  j-  J*  * 


GRID  THE  SUBROUTINE  THAT  CALCULATES  THE  AREAS  OF  THE  CELLS  * 
PLUS  THE  Z  AND  THETA  LOCATIONS  FOR  EACH  CELL. 

■x 

WALL  THE  SUBROUTINE  THAT  CALCULATES  THE  VIEW  FACTORS  FROM 

ONE  TANK  CELL  TO  ANOTHER.  IF  THE  FIRE  INTERSECTS  THE  * 
LINE  OF  SIGHT  OF  THE  CELLS,  IT  SHADES  THAT  VIEW  FACTOR  * 
AND  THE  VIEW  FACTOR  IS  SET  TO  ZERO.  THE  MATRICES  HAVE  * 
FOUR  INDICIES .  I,K  THETA  AND  Z  LOCATIONS  FROM  THE  * 
STARTING  CELL.  II.KK  THETA  AND  Z  LOCATIONS  TO  THE  CELL  * 
THE  RAD I ATOM  IS  GOING  TO.  NOTE  BE  CAREFUL  OF  THE  INDICE* 
NOTATION  IN  THE  COMMON  STATEMENTS.  #1:#2  IN  THE  * 

NOTATION  MEANS  #1  =  CELL  STARTING  FROM  #2  =  CELL  GOING* 
THROUGH.  FOR  EXAMPLE  WVFSN(2:21, 26:30, 2:21, 3:7)  * 

WVFSN  =  WALL  VIEW  FACTOR  SOUTH  SPHERE  TO  NORTH  SPHERE  * 
( I , K , I I , KK )  FOR  30TH  TINES  WHERE  2:21  APPEARS  IT  STANDS* 
FOR  I  AND  II  MEANING  THE  THETA  CELLS  WHICH  GO  THROUGH  * 
CELL  NUMBER  2  THROUGH  CELL  NUMBER  21.  THESE  ARE  CELL  * 
NUMBERS  NOT  NODE  NUMBERS.  THE  SOUTH  SPHERE  HAS  CELLS  * 
26  THROUGH  31  AND  THE  NORTH  SPHERE  HAS  CELLS  3  THROUGH  * 
7  WHICH  CORRESPOND  TO  X  AND  KK  RESPECTFULLU .  IF  THIS  * 
PROGRAM  IS  TO  BE  MODIFIED  IN  THE  FUTURE  THE  COMMON  * 

STATEMENTS  WILL  HAVE  TO  BE  CHANGED  TO  CORRESPOND  TO  * 
THE  RIGHT  CELL  NUMBERS.  THIS  IS  ONLY  IF  THE  PROGRAM  IS* 
TO  BE  ENLARGED.  A  SMALLER  MATRIX  CAM  BE  RUN  WITH  THIS  * 
PROGRAM  BUT  MOT  ALL  THE  SFACE  SET  ASIDE  WOULD  BE  USED.  * 
THE  INTERNAL  PROGRAM  IS  GENERAL  AND  WILL  NOT  HAVE  TO  * 
BE  CHANGED .  * 

•k 

VIEW  THIS  SUBROUTINE  TAKES  THE  WALL  VIEW  FACTORS  AND  PUTS  * 
THEM  INTO  ONE  ARRAY  WITH  TWO  INDICES  VICE  FOUR.  IT  * 

ASSIGNS  A  NUMBER  TO  EACH  OF  THE  CELLS  FROM  1  TO  560.  * 

THE  NUMBERING  IS  FROM  THE  NORTH  ENDCAP  AND  SPIRALS  * 

AROUND  THE  TANK.  THETA  VARIES  THEN  Z.  * 

* 

HEAT  THIS  SUBROUTINE  INTRODUCES  THE  FIRE  CELLS  INTO  THE  * 

VIEW  FACTOR  MATRIX.  FIRST  THE  VIEW  FACTORS  FROM  THE  * 

FIRE  TO  EACH  TANK  CELL  ARE  FOUND.  THESE  VIEW  FACTORS  * 

ARE  THEN  MODIFIED  DUE  TO  THE  PROBLEMS  EXPERIENCED  WITH  * 
GEOMETRY  OF  THE  TANK.  THE  VIEW  FACTORS  FROM  THE  WALL  TO* 

THE  FIRE  ARE  FOUND  THROUGH  RECIPROSITY,  AND  MODIFIED  * 

DUE  TO  THE  UNKNOWN  EXACT  AREA  OF  THE  FIRE.  THE  FOUR  * 

INDICE  MATRIXS  ARE  THEN  PUT  INTO  THE  PREVIOUS  TWO  INDICE* 
MATRIX.  THE  FIRE  CELLS  ARE  NUMBERED  FROM  THE  FIRE  PAN  * 
TO  THE  TOP  OF  THE  TANK. (CELLS  561  -  579)  THE  VIEW  * 

FACTORS  FROM  THE  FIRE  CELLS  TO  THE  FIRE  CELLS  ARE  ALL  * 
SET  TO  ZERO.  * 

k 

AREAl  THIS  SUBROUTINE  ASSIGNS  AN  AREA  TO  EACH  CELL.  'GRID 'SET  * 
UP  A  GENERAL  AREA  THAT  COULD  BE  USED  IN  'WALL'  BUT  IN  * 
ORDER  TO  USE  THE  'INVER'  SUBROUTINE  AN  EASIER  WAY  HAD  * 

TO  BE  DEVELOPED  TO  INDICATE  AREA.  * 

* 

INVER  THIS  SUBROUTINE  TAKES  THE  VIEW  FACTOR  MATRIX,  INCLUDING  * 
THE  FIRE  CELLS  AMD  SETS  IT  IN  THE  EQUATION  DEVELOPED  IN  * 
S PEI GAL/ HOWELL  TO  FIND  THE  HEAT  TRANSFER  RATE.  THE  GOAL* 
OF  THIS  PROGRAM  INVOLVES  MODIFIYIMG  THE  VIEW  FACTOR  * 
MATRIX  AND  TAKING  THE  INVERSE  TO  PROVIDE  A  MEW  MATRIX  * 
THAT  WILL  BE  USED  IN  THE  "TANK"  PROGRAM  TO  CALCULATE  * 
HEAT  TRANSFER.  THIS  NEW  MATRIX  IS  REFERED  TO  AS  VFMXC  * 
IN  THE  PROGRAM  OR  TO  THE  "G"  MATRIX  FOR  DISCUSSION  * 

PURPOSES.  DO  TO  THE  NUMBER  OF  LARGE  MATRICES  REQUIRED  * 

FOR  THIS  MODIFICATION/INVERSE  PROCEDURE,  A  SPACE  SAVING  * 
PROCEDURE  WAS  USED  TO  WRITE  OVER  MATRIX  LOCATIONS.  * 

THE  IBM  IMSL  PROCEDURE,  LINV1F,  WAS  CALLED  TO  DO  THE  * 
MATRIX  INVERSION.  AFTER  THE  MATRIX  IS  INVERTED  IT  IS  * 

MULTIPLIED  BY  ANOTHER  MATRIX  AND  THE  RESULTING  "G"  * 

MATRIX  IS  SENT  TO  A  DISK  FOR  USE  IN  THE  TANK  PROGRAM.  * 

k 

THIS  IS  A  GENERAL  OVERVIEW  WHAT  THE  PROGRAM  DOES.  EACH  SUBROUTINE  * 


138 


:  WILL  HAVE  INTERNAL  COMMENTS  AND  A  BEGINNING  SECTION  TO  DEFINE  THE 

I  VARIABLES  USED.  ... 

*********XXXXXXXXX*XXXXX*X******X*X**XX**X****~**X********XXX*X*XXXXXXX*XX*XXX 

:  READ  ( 5  ,  * )  MRS  ,  NA ,  MB  , NR ,  MIS  ,  NI ,  R ,  CL ,  ZCYL1 ,  ZCYL2  ,  FPAND  , I-IJS  ,  NJ  ,  HSZ  , 

:  &  IFIRE 

PI  =  4.0  *  AT AN (1.0) 


ZCYL1  =9.6 
ZCYL2  =37.0 
FPAND  =  5 
DIAFP  =  2. 

NJS  =  1 
NJ  =  13. 

HSZ  =23.3 
IFIRE  =  1 
RF  =  DIAFP/2 . 

MI  =  NI  -  NIS 

MJ  =  NJ  -  NJS 

MR  =  NR  -  MRS 

MRN  =  NA  -  NRS 

MRS  =  NR  -  MB 

MRC  =  MR  -  MRN  -  MRS 

WRITE (6 ,  *)  'MRS  =' ,  NRS,  'NA  =',NA,'NB  =',NB,'NK  =',NR 
WRITE (6 ,  *)  'NIS  =',  NIS,  'NI  =',NI,  'NJS  =',NJS,'NJ  =',NJ 
WRITE (6 , * ) 

WRITE (6 ,*)  'MI  = ' ,MI , ' MR  =',MK,'MKN  =' ,MKN, 'MRS  =',MRS 
WRITE  6,*  'MRC  =',MKC,  'MJ  =' ,MJ 
WRITE (6,*) 

CALL  GRID 
CALL  WALL 


MREGN1 

IREGN1 

MREGN2 

IREGN2 

MREGN3 

IREGN3 


HI  *  MRN 
IREGN1  +1 
MI  *  (MRN  +  MRC) 
IREGN2  +  1 
MI  *  MR 


CALL  VIEW 
CALL  HEAT 

C  THE  FOLLOWING  DO  LOOP  ADDS  UP  THE  VIEW  FACTORS  FROM  I  TO  ALL  THE 
C  OTHER  579  CELLS.  THIS  IS  A  CHECR  OF  THE  ENCLOSURE  PROPERTY  FOR  THE 
C  TOTAL  SUM  SHOULD  EQUAL  ONE. 

DO  46  I  =  1,579 
SUM  =  0.0 
DO  47  J  =  1,579 

SUM  =  SUM  +  VFMXR ( I , J ) 

47  CONTINUE 


'SUM  TOTAL  = 


,  SUM 


WRITE (6  ,  *) 
46  CONTINUE 
CALL  AREA1 
CALL  INVER 
STOP 
END 


SUBROUTINE  GRID 

COMMON/ BL1 /  NI S , NI , NRS , NR , NA , NB , MI , MR , MRN , MRS , MRC , CL , DTHETA , 
&  DPHIN , DPHIS , DZ1 , DZ2 , DZ3 , Z1 , R , PI , ZCYL1 , ZCYL2 

COMMON/ BL2/  PHI (33 ) , THETA (2 s 21 , 33 ) ,Z ( 2  : 21 , 33 ) , AREA (10) ,AREAC 


^  V  V  ».  V" 


C0MM0N/BL3/  MREGN1 ,MREGN2 ,MREGN3 , IREGN1 , IREGN2 , IREGN3 , KSM1 , KSM2 , 

&  KSM3 , KSM4 , KSH5 , KSM6 

C0MM0N/BL4/  VFMXR(  579 , 579)  ,DELY(2 , 12)  ,RF 

COMMON/ BL5/WVFNN( 2 :21, 3:7, 2:21, 3:7) ,WVFSS(2 :21, 26:30,2:21, 26:30) , 

&  WVFSN ( 2 : 21 , 25 : 30 , 2 : 21 , 3 : 7 ) . WVFHC (2:21,3:7,2:21,3:25), 

&  WVFCS (2 :21, 3:25, 2:21, 26:30),  WVF SC ( 2 : 21 , 25 : 30 , 2 : 21 , 3 : 25 ) , 

&  WVFMS (2:21, 3:7 ,2:21, 26 :30 ) ,WVFCN(2:21,3 :25, 2:21, 3:7) , 

&WVFCC(2 :21, 8:25, 2:21, 3:25) 

COMMON/BL7/  NJS ,NJ ,MJ , HSZ , FPAND , HSAMG( 2 , 12 ) ,Y(2,12) ,HSY,DIAFP, 
&VFHNS (2,12,2:21,3:7) , VFHSS ( 2 , 12 , 2 : 21 , 26 : 30 ) , VFHC ( 2 , 12 , 2 : 21 , 8 : 25 ) , 
&VFNSH(2 :21,3:7,2,12) , VFSSH(2 :21 , 26: 30, 2, 12), VFCH (2:21, 8:25, 2, 12) 

COMMON/BLK8/VFMXC ( 579 , 579) , VFMXIN( 579 , 579) , 

&  CONSRA ,  NHSZ, AR( 579) fEM( 579) .IFIRE 

j'-k'k'k-k-k-k-k-kTC'kTr-k-kTf'k'k-k'k'k-k-}  r ^yr-k-k-k-^-ki^'k'k'k-k'k’r-k-k'k-k-k'k'k^'k'k’k'k^-k’k-k'k'k'k^’k^-k'k'k 

*  DTHETA  =  DELTA  THETA  (I  DIRECTION)  * 

*  DFHIN  =  DELTA  PHI  NORTH  SPHERE  * 

*  DPHIS  =  DELTA  PHI  SOUTH  SPHERE  * 

*  2(1, K)  =  Z  ARRAY  TO  ASSIGN  A  Z  LOCATION  FOR  EVERY  CELL* 

*  THETA( I , K)  =  THETA  ARRAY  TO  ASSIGN  A  THETA  LOCATION  * 

*  PHI ( I )  =  ASSIGNS  A  PHI  VALUE  FOR  THE  NODAL  POINT  ON  * 

*  THE  SPHERES  VICE  THE  CELL  POINT  * 

*  AREA ( I )  =  AM  AREA  ELEMENT  FOR  THE  CELLS  ON  THE  SPHERE  * 

MOTE  FOR  A  GIVEN  Z  LOCATION  ALL  THE  CELLS  HAD* 


*  THE  SAME  AREA.  THEREFORE  ONLY  10  LOCATION  * 

*  SITES  HAD  TO  BE  ASSIGNED.  * 

*  AREAC  =  THE  AREA  OF  THE  CYLINDER  CELLS.  DUE  TO  THE  * 

*  UNIFORM  GRID  ON  THE  TANK  WALLS,  THE  CELLS  * 

*  THE  SAME  SIZE.  * 

*  ANGLE  =  USED  TO  ASSURE  THAT  THE  ANGLE  AT  NK  WAS  180  * 

*  DEGREES  AND  THEREFORE  THE  COS (ISO)  =  -1.  * 

*  THERE  WAS  SOME  PROBLEM  DETECTED  EARLY  IN  * 

*  TESTING  THAT  WOULD  MAKE  THIS  VALUE  POSITIVE  * 

*  DUE  TO  COMPUTER  ROUND  OFF  * 

************ A************************* ************ *************** ******** 


DEFINE  THE  GRID  SYSTEM 

DTHETA  =  (  2.0  *  PI)  /  MI 
WRITE (6,*)  'DTHETA  =  1 ,  DTHETA 

FOR  THE  SPHERICAL  END  CAPS,  PHI  IS  90  DEGREES  OR  PI/2  DIVIDED  BY 
THE  NUMBER  OF  DIVISIONS  PER  END  CAP 

DPHIN  =  PI  /  (2.0  *  MKN) 

DPHIS  =  PI  /  (2.0  *  MKS) 

WRITE (6 , *)  'DPHIN  =', DPHIN ,' DPHIS  =', DPHIS 
WRITE (6 , *) 


0  TO  PI/2  RADIANS 


WRITE (6 , *) 

PHI  IS  FOUND  FOR  EACH  NODAL  POINT.  THIS  IS  NOT  THE  PHI  FOR  THE 
MIDPOINT  OF  THE  CELL. 

PHI  FOR  THE  NORTH  SPHERE  IS  FROM  0  TO  PI/2  RADIANS 
PHI(NKS)  =0.0 

WRITE (6 , 50)  'I',  'PHI  (RADIANS)' 

FORMAT (IX,  10X,A, 10X,A,/ ) 

DO  1  I  =  NKS+1 ,  NA 

PHI ( I )  =  PHI ( I -  1 )  +  DPHIN 
WRITE (6,55)  I,  PHI (I) 

CONTINUE 

PHI  FOR  THE  SOUTH  SPHERE  IS  FROM  PI/2  TO  PI  RADIANS 
PHI (MB)  =  PI  /  2.0 
DO  2  I  =  NB+1 ,  NK 

PHI ( I )  =  PHI(I-l)  +  DPHIS 
WRITE (6, 55)  I,  PHI (I) 

CONTINUE 

FORMAT ( IX, 7X, 13 , 10X, F10 . 5 ) 

DEFINE  THE  LOCATION  OF  EACH  CELL  IN  TERMS  OF  THETA  AND  Z,  SET  UP 
A  MATRIX  FOR  EACH.  THE  LOCATION  IS  IN  THE  MIDDLE  OF  EACH  CELL. 
THE  CELL  AREAS  ARE  THE  SAME  FOR  EACH  ELEMENT  ON  THE  CYLINDER  AMD 
SIMILAR  FOR  EACH  PHI  ANGLE  OF  THE  SPHERE.  SET  UP  A  COLUMN  VECTOR 


ww 


c 


FOR  THE  AREA  OF  EACH  CELL  TYPE. 

START  AT  THE  NORTH  SPHERE  WITH  21  =  0 .  FIND  DELTAZ.  (  WILL  VARY 
FOR  THE  SPHERE).  TAKE  THE  MIDPOINT,  THIS  IS  THE  LOCATION  FOR  THE 
FIRST  CELL.  ADD  THE  REMAINING  DELTAZ  (DZ/2).  THIS  LOCATION  IS  NOW 
AT  THE  NEXT  NODAL  POINT.  GO  THROUGH  THE  LOOP  AGAIN  TO  GET  A  NEW 
DELTAZ  AND  CONTINUE  WITH  THE  PROCESS.  MOTE  THE  NODAL  POINT  NUMBER 
REPRESENTS  THE  CELL  TO  THE  RIGHT  OF  IT  GOING  FROM  NORTH  TO  SOUTH. 
THIS  IS  FOR  THE  Z  DIRECTION.  THE  LAST  CELL  HAS  THE  NUMBER  NK-1. 

NA  REPRESENTS  A  CELL  ON  THE  CYLINDER,  NB-CELL  ON  THE  SOUTH  SPHERE 

Z1  =  0.0 
KT  =  0 

WRITE (6, 60) 'I' , ' K ' , 'THETA' , ' Z ' 

DO  3  K  =  NKS ,NK-1 
DO  3  I  =  NIS,  NI-1 

IF  (  KT  .EQ.  K)  THEN 

Z(I,K)  =  Z(I-1,K) 

GO  TO  75 

END  IF 
KT  =  K 

FIND  THE  AREA  AND  Z  LOCATION  FOR  THE  NORTH  SPHERE 
IF  (  K  .LT.  NA  )  THEN 

DZ1  =  R  *  (  COS(PHI (K) )  -  COS (PHI (K+l ) )  ) 

AREA(K-NKS+1 )  =  (DZ1*  2.*FI*R)/  MI 


Z ( I , K)  =  Z1  +  (DZ1*0.5) 
Z1  =  Z ( I , K)  +  (DZ1*0 . 5 ) 


C  FIND  THE  Z  LOCATION  FOR  THE  CYLINDER 

ELSE  IF  (  K  .GE.  NA  .AND.  K  .LT.  MB)  THEN 
DZ2  =  CL  /  MKC 
Z ( I , K )  =  Z1  +  (DZ2*0 . 5 ) 

Z1  =  Z(I,K)  +  (DZ2*0 . 5 ) 

ELSE 

C  FIND  THE  AREA  AND  Z  LOCATION  FOR  THE  SOUTH  SPHERE 
IF  (K  .EQ.  NK-I  )  THEM 

C  ENSURES  THAT  THE  ANGLE  AT  ((NK-1)  +1),IE  NK,  EQUALS  180  DEGREES 

ANGLE  =  -1.0 

ELSE 

ANGLE  =  COS (PHI (K+l)) 

END  IF 

DZ3  =  R* (  COS (PHI (K))  -  ANGLE) 

AREA(K+MKN+1-NB )  =  (DZ3*2 . 0*PI*R) /  MI 
Z( I , K)  =  Z1  +  (DZ3*0 . 5 ) 

Z1  =  Z ( I , K )  +  (DZ3*0 . 5) 

END  IF 

75  CONTINUE 

C  ASSIGNS  A  THETA  VALUE  FOR  EVERY  CELL. 

THETA ( I , K)  =  (I-NIS+1 )*DTHETA  -  (0.5  *  DTHETA) 

C  WRITE (6 , 65)  I ,K, THETA (I ,K) ,Z(I ,K) 

3  CONTINUE 

60  FORMAT  IX , 5X , A , 5X , A , 7X , A , 10X , A , / ) 

65  FORMAT (IX, 2X, 13 , 2X, 13 , 4X, F10 . 5 , 6X, F10 . 5) 


THE  AREA  VECTOR  IS  NUMBERED  1-MKN  FOR  THE  NORTH  SPHERE  AND  MKN+1 
TO  MKN+MKS  FOR  THE  SOUTH  SPHERE.  THE  AREA  FOR  THE  CYLINDER  CELL 
IS  CONSTANT  AND  CAN  BE  CALCULATED  OUTSIDE  THE  DO  LOOP. 

ARE AC  =  R*DZ2*DTHETA 
WRITE ( 6 , * )  ' AREAC  =  ',  AREAC 
DO  70  I  =  1.10 

WRITE(6 , *)  I,  AREA ( I ) 

CONTINUE 

RETURN 

END 

SUBROUTINE  WALL 

COMMON/ BL 1 /  NIS ,NI , NKS , NK , NA , NB , HI , MK , MKN , MKS , MKC , CL , DTHETA , 

&  DPHIN , DPHIS , DZ1 , DZ2 , DZ3 , Z1 , R , PI , ZCYL1 , ZCYL2 

COMMON/BL2/  PHI  (33)  , THETA (2 -.21 ,33)  ,Z(2:21,33)  ,  AREA (10)  ,  AREAC 

COMMON/BL3/  MREGN1 ,MREGN2 , MREGN3 , IREGN1 , IREGN2 , IREGN3 , KSM1 , KSM2 , 


SWf 


V  *S-  N.  •  K”  KT  *- 


&  KSM3 , KSM4 , KSM5 , KSM6 

C0MM0N/BL4/  VFMXR(579 , 579) ,DELY(2,12) , RF 

COMMOM/BL5/WVFNN(2 :21, 3:7, 2:21, 3:7) , WVFSS (2:21,26:30,2:21,26:30), 
&  WVFSN( 2 :21, 26:30, 2:21,3:7)  WVFNC( 2 :21, 3:7, 2:21, 8:25) , 

&  WVFCS(2:21, 3:25,2:21, 26:30) ,  WVFSC(2 :21 , 26 :30 , 2 :21 , 8 :25) , 

&  WVFNS (2:21,3:7,2:21,26:30) , WVFCN(2 :21, 3:25, 2:21, 3:7), 

&WVFCC(2 :21, 3:25, 2:21, 3:25) 

COMMON/ BL 7 /  M JS , N J , M J , HS 2 , FPAND , HSANG ( 2 , 1 2 ) , Y ( 2 , 1 2 ) , HSY , D I AFP , 
&VFHNS (2 ,12,2:21,3:7), VFHSS (2 ,12,2:21,26:30), VFHC( 2 , 12,2:21,3:25), 
&VFMSH(2:21,3:7,2,12) , VFSSH(2 :21 , 26 :30 , 2 , 12) ,VFCH(2 : 21 ,8 :25 , 2 , 12) 


COMMON/ BLK8/VFMXC (579,579) , VFMXIN( 579,579) , 

&  CONSRA,  NHSZ . AR( 579 ) . EM( 579 ) .IFIRE 

***  **  **XXX**X7t  XX*  XX  7T7TX***XX  XX*  *****************  *********  ******** 


WVFNN 

WVFNS 

WVFSN 

WVFSS 

WVFNC 

WVFCN 

WVFSC 

WVFCS 

WVFCC 


PHI  2 
RHOl 
RH02 
HI  ,H2 

THETAD 

DAREA1 

DAREA2 

ASQ 


RD 

CBETA1 

CBETA2 

ZETA1S 

ZETA2S 


WALL  VIEW  FACTOR  NORTH  SPHERE  TO  NORTH  SPHERE  * 

WALL  VIEW  FACTOR  NORTH  SPHERE  TO  SOUTH  SPHERE  * 

WALL  VIEW  FACTOR  SOUTH  SPHERE  TO  NORTH  SPHERE  * 

WALL  VIEW  FACTOR  SOUTH  SPHERE  TO  SOUTH  SPHERE  * 

WALL  VIEW  FACTOR  NORTH  SPHERE  TO  CYLINDER  * 

WALL  VIEW  FACTOR  CYLINDER  TO  NORTH  SPHERE  * 

WALL  VIEW  FACTOR  SOUTH  SPHERE  TO  CYLINDER  * 

WALL  VIEW  FACTOR  CYLINDER  TO  SOUTH  SPHERE  * 

WALL  VIEW  FACTOR  CYLINDER  TO  CYLINDER  * 

* 

PHI  ANGLE  TO  MIDPOINT  OF  THE  CELL  ON  A  SPHERICAL  * 
ELEMENT,  ONE  DENOTES  ORIGINATING  CELL  * 

PHI  ANGLE  OF  THE  CELL  THE  RADIATION  IS  GOING  TO  * 

PROJECTED  DISTANCE  ON  THE  XY  PLANE  (R*SIN(PHI1)  )  * 

PROJECTED  DISTANCE  OF  THE  CELL  RADIATION  IS  GOING  TO* 

DISTANCE  ALONG  THE  Z  AXIS  OF  THE  SFHERICAL  CELLS  * 
R  *  COS ( PHI 1)  l=ORIGINATING  ,  2  =  RECEIVING  * 

THE  DIFFERENCE  BETWEEN  THE  THETA  ANGLES  OF  THE  * 

TWO  CELLS  IN  QUESTION  * 

THE  AREA  OF  THE  ORIGINATING  CELL  * 

THE  AREA  OF  THE  RECEIVING  CELL  * 

"A"  SQUARE,  THIS  IS  A  SQUARED  DISTANCE  OBTAINED  BY  * 
THE  LAW  OF  COSINES.  THIS  DISTANCE  IS  REQUIRED  TO  * 
FIND  THE  DISTANCE  BETWEEN  THE  TWO  CELLS.  REFER  TO  * 
THESIS  TEXT  FIGURES  TO  UNDERSTAND  THE  DERIVATIONS  * 
"B"  SQUARE,  AGAIN  ANOTHER  DISTANCE  REQUIRED  TO  FIND  * 
THE  DISTANCE  BETWEEN  THE  TWO  CELLS  * 

"R"  SQUARE,  THE  SQUARE  OF  THE  DISTANCE  BETWEEN  THE  * 
TWO  CELLS  * 

THE  ACTUAL  DISTANCE  BETWEEN  THE  TWO  CELLS  * 

THE  COSINE  OF  THE  ANGLE  BETWEEN  THE  NORMAL  OF  THE  * 
ORIGINATING  CELL  AND  THE  LINE  RD  * 

THE  COSINE  OF  THE  ANGLE  BEWTEEN  THE  NORMAL  OF  THE  * 
RECEIVING  CELL  AND  THE  LINE  RD  * 

ZETA  ONE  SQUARE,  ANOTHER  DISTANCE  REQUIRED  TO  FIND  * 
CBETA1 ,  REFER  TO  THESIS  TEXT  * 

ZETA  TWO  SQUARE,  USED  TO  FIND  CBETA2  * 


THE  FOLLOWING  VARIABLES  ARE  USED  TO  DETERMINE  IF  THE  LINE  BETWEEN  * 
THE  CELLS  INTERSECTS  THE  FIRE  * 


XI ,  YI ,ZI 

XJ, YJ,ZJ 
XD 

YD 

ZD 

A ,  B ,  C 


T1,T2 
Y 1 ,  Y  2 

FIREY 


THE  X,Y,  AND  Z  LOCATION  OF  THE  ORIGINATING  CELL 

THE  X , Y ,  AND  Z  LOCATION  OF  THE  RECEIVING  CELL 

THE  X  DISTANCE  BETWEEN  THE  TWO  (XJ-XI) 

THE  Y  DISTANCE  BETWEEN  THE  TWO  (YJ-YI) 

THE  Z  DISTANCE  BETWEEN  THE  TWO  (ZJ-ZI) 

COEFICIENTS  OF  THE  EQUATION: 

A*T**2  +  B*T  +  C  =  0.  THE  DETERMINATION  OF  THESE 

COEFICIENTS  IS  DISCUSSED  IN  THE  THESIS 

THE  TERMS  IN  A  QUADRATIC  SOLUTION  THAT  WOULD  BE 

UNDER  THE  SOUARE  ROOT  SIGN 

SOLUTIONS  TO  THE  QUADRATIC  SOLUTION 

Y  DISTANCES  THAT  CAN  BE  RELATED  TO  THE  LOCATION  OF 

THE  FIRE 

THE  NEGATIVE  Y  DISTANCE  THAT  REPRESENTS  WHERE  THE 


.  >  v  *.  -- .>.%  .vv%  .v  v  % 


n  n 


*  THE  FIRE  PAN  IS  LOCATED.  * 

****************************************************************  ***  ******* 


C  NOTE  ORIGINATING  CELL  IS  (I,K),  RECEIVING  CELL  IS  (II, KK) 
*********************************************************************-*.** 
WVFNN  WALL  VIEW  FACTOR  FROM  NORTH  SPHERE  TO  NORTH  SPHERE 

DO  100  I  =  MIS ,NI-1 
DO  100  K  =  NKS ,NA- 1 
DO  100  II  =  MIS,  NI-1 
DO  100  KK  =  NKS ,NA-1 
IF  (I  .EQ.  II  .AND.  K  .EQ.  KK)  THEN 
WVFNN ( I , K , I I , KK )  =  0.0 
ELSE 

PHI1  =  PHI (K)  +  . 5*DPHIN 
PHI2  =  PHI (KK)  +  .  5*DPHIN 
RHOl  =  R  *  SIN  (PHI1) 

RH02  =  R  *  SIN  (PHI2 ) 

HI  =  R  *  COS ( PHI 1) 

H2  =  R  *  COS (PHI2 ) 

THETAD  =  ABS (  THETA ( I , K)  -  THETA(II ,KK) ) 

IF  ( THETAD. GT.  PI)  THETAD  =  2*PI  -  THETAD 
DAREA1  =  AREA(K-MKS+1 ) 

DAREA2  =  AREA(KK-NKS+1) 

ASQ  =  RH01**2  +  RH02**2  -  2 . 0*RHOl*RHO2*COS (THETAD) 

BSQ  =  (Hl-H2)**2 
RSQ  =  ASQ  +  BSQ 
RD  =  SQRT(RSQ) 

CBETA1  =  RD/(2.0*R) 

CBETA2  =  RD/ (2 . 0*R) 

WVFNN ( I , K , I I , KK )  =  (CBETA1*CBETA2)/ (PI*RSQ)  *  DAREA2 
END  IF  ' 

100  CONTINUE 

WRITE (6 ,  *) 

Q-k-k-k-k-A-kJ'Jr-tck-x-k-k-k  *************************************  A******************** 

C  WVFSS  WALL  VIEW  FACTOR  FROM  SOUTH  SPHERE  TO  SOUTH  SPHERE 

DO  200  I  =  NIS , NI-1 
DO  200  K  =  NB ,NK-1 
DO  200  II  =  NIS,  NI-1 
DO  200  KK  =  NB ,NK-1 
IF  (I  .EQ.  II  .AND.  K  .EQ.  KK)  THEN 
WVFSS ( I , K , II , KK)  =  0.0 
ELSE 

PHI1  =  PI  -  (PHI (K)  +  .5*DPHIS) 

PHI2  =  PI  -  (PHI (KK)  +  . 5*DPHIS) 

RHOl  =  R  *  SIN  (PHI1) 

RH02  =  R  *  SIN  (PHI2) 

HI  =  R  *  COS (PHI 1 ) 

H2  =  R  *  COS  PHI  2) 

THETAD  =  ABS (  THETA (I ,K)  -  THETA (II ,KK) ) 

IF  (THETAD. GT.  PI)  THETAD  =  2*PI  -  THETAD 
DAREA1  =  AREA ( K+MKN+ 1 -NB ) 

DAREA2  =  AREA ( KK+MKN+ 1 - NB ) 

ASQ  =  RH01**2  +  RH02**2  -  2 .0*RHOl*RHO2*COS(THETAD) 

BSQ  =  (Hl-H2)**2 
RSQ  =  ASQ  +  BSQ 
RD  =  SQRT(RSQ) 

CBETA1  =  RD/(2.0*R) 

CBETA2  =  RD/ (2 . O^R) 

WVFSS ( I ,K, II ,KK)  =  (CBETA1*CBETA2)/(PI*RSQ)  *  DAREA2 
END  IF 

200  CONTINUE 

WRITE(6 , *) 

C  WVFNS  WALL  VIEW  FACTOR  FROM  NORTH  SPHERE  TO  SOUTH  SPHERE 

DO  300  I  =  NIS, NI-1 
•  DO  300  K  =  NKS , NA- 1 

f.  DO  300  II  =  NIS,  NI-1 


.*» 


£ 


DO  300  KK  =  NB.HK-l 
IF  (I  .EQ.  II  .AMD.  K  .EQ.  KK)  THEM 
WVFMS ( I , K , I I , KK )  =0.0 
ELSE 

PHI1  =  PHI (K)  +  .  5*DPHIN 

PHI2  =  PI  -  (PHI (KK)  +  . 5*DPHIS ) 

RH01  =  R  *  SIM  (PHI 1 ) 

RH02  =  R  *  SIN  (PHI2) 

HI  =  R  *  COS(PHIl) 

H2  =  R  *  COS (PHI2 ) 

THETAD  =  ABS (  THETA ( I , K)  -  THETA(II,KK) ) 

IF  (THETAD. GT.  PI)  THETAD  =  2*PI  -  THETAD 
DAREA1  =  AREA(K-NKS+1) 

DAREA2  =  AREA ( KK+HKM+ 1 -MB ) 

ASO  =  RH01**2  +  RH02**2  -  2.0*RHOl*RHO2*COS(THETAD) 

BSQ  =  (CL  +  HI  +  H2 )**2 
RSO  =  ASQ  +  3SO 
RD  =  SQRT ( RSO  J 

ZETA1S  =  RH02**2  +  (CL  +  H2)**2 

ZETA2S  =  RH01**2  +  (CL  +  Hl)**2 

CBETA1  =  (R**2  +  RSQ  -  ZETA1S)/  (2.0*R*RD) 

CBETA2  =  (R**2  +  RSQ  -  ZETA2S)/  (2.0*R*RD) 

WVFMS (I ,K, II ,KK)  =  (CBETA1*CBETA2)/(PI*RSQ)  *  T^AREA2 
END  IF 

Q  *  *  -k  *  "k  -k  -k  rc  is  tc  -k  -k  *k  rc  -k  k  k  kk  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  *  k  k  k  k  *  k  *  k  *  k  *  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k 

C  THE  FOLLOWING  SECTION  IS  ONLY  INCLUDED  IF  THE  FIRE  IS  CONSIDERED. 

C  IN  THAT  CASE, IFIRE  (INCLUDED  FIRE)  WOULD  EQUAL  1  AND  THE  CHECK  TO 
C  SEE  IF  THE  VIEW  FACTOR  INTERSECTS  THE  FIRE  WOULD  BE  ACCOMPLISHED. 

Q***  **;**:£*  *****::**  A*****;*:***:*:*  **:*£**  *******  ********  ******************* 


Vs 


s 

vs 


K 


* 

t' 


IF  (IFIRE  .EQ.  0)  GO  TO  350 
IF (WVFMS (I ,K, II ,KK)  .EQ.  0.)  GO  TO  350 
FIREY  =  -R  +  (R/MJ  *  FPAND) 


RF 
XI 
YI 
ZI 
XJ 
YJ 
ZJ 
XD 
YD 
ZD 
A 
B 
C 

QUAD 


DIAFP  /  2.0 
RH01*C0S (THETA ( I , K) ) 
RH01*SIN(THETA(I ,K) ) 

2(1, K) 

RHOl *COS ( THETA ( I I , KK ) ) 
RH01*SIN(THETA(II,KK)) 

Z ( II , KK) 

XJ  -  XI 
YJ  -  YI 
ZJ  -  ZI 
XD**2  +  ZD**2 

2.0  *(ZI  -  HSZ ) *ZD  +  2 . 0*XI*XD 
XI**2  +  (ZI  -  HSZ)**2  -  RF**2 
=  6**2  -  4 . *A*C 


IF  ( 


ELSE 


QUAD  .LT.  0.)  THEN 
GO  TO  350 


T1 

T2 

YI 

Y2 


■[■I 


SQRT (QUAD) )/(2.*A) 


Mi£\ 


SQRT (QUAD 

=  T1*(YJ  -  YI)  +  YI 
=  T2*(YJ  -  YI)  +  YI 

END  IF 

(  YI  .GT.  FIREY  .AND.  YI  .LT.  R  )  THEN 
WVFMS ( I , K , I I , KK )  =  0.0 
ELSE  IF(  Y2  .GT.  FIREY  .AND.  Y2  .LT 
WVFNS ( I ,K , II , KK)  =  0.0 

END  IF 


IF 


R)  THEN 


C  END  OF  MODIFICATION  TO  WALL  VIEW  FACTORS  WHEN  THE  FIRE  IS  INCLUDED 
£********************************************************************** 


350 

300 


WVFSN ( I I , KK , I , K)  =  WVFNS ( I , K , I I , KK )  *  DAREA1/  DAREA2 
CONTINUE 
WRITE (6 , *) 

£************************************************************************ 
C  WVFNC  WALL  VIEW  FACTOR  FROM  NORTH  SPHERE  TO  CYLINDER 


DO  400  I  =  NIS ,NI-1 
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a  .*>  a 


DO  400  K  =  NKS.NA-1 
DO  400  II  =  MIS,  MI-1 
DO  400  KK  =  NA.NB-l 
IF  (I  .EG.  II  .AND.  K  .EQ.  KK)  THEM 
WVFNC ( I , K , I I , KK )  =0.0 
ELSE 

PHI 1  =  PHI (K)  +  . 5*DPHIN 
RHOl  =  R  *  SIN  (PHI1 ) 

Z1  =  Z ( I , K) 

Z2  =  Z(  II , KK) 

THETAD  =  ABS (  THETA ( I , K)  -  THETA( II , KK) ) 

IF  (THETAD. GT.  PI)  THETAD  =  2*PI  -  THETAD 
DAREA1  =  AREA(K-NKS+1 ) 

DAREA2  =  AREAC 

ASQ  =  RH01**2  +  R**2  -  2.0*RH01*R*COS(THETAD) 

BSQ  =  (Z1  -Z2)**2 
RSQ  =  ASQ  +  BSQ 
RD  =  SQRT(RSQ) 

ZETA1S  =  BSQ  +  RH01**2 

ZETA2S  =  R*7'2  +  (Z2  -ZCYL1)**2 

CBETA1  =  (R**2  +  RSQ  -  ZETA1S)/  (2.0*R*RD) 

CBETA2  =  (R**2  +  RSQ  -  ZETA2S )/  (2.0*R*RD) 

WVFNC ( I , K , II , KK)  =  (CBETA1*CBETA2)/(PI*RSQ)  *  DAREA2 
END  IF 


Q-k  •k-k-k-kkjK'k'k-kTtx-k-k'k'k-jirk-k  'k-k'k'kiK'k'k'k-k-k'k'k'k'k'k^’k’k-A^iK'k’k-k'k^-k-k^-k-k^-kir-k  ■A’k'k  'k-^Tck'k'k'k'k  Jck'k'A'k  "k 

C  THE  FOLLOWING  SECTION  IS  ONLY  INCLUDED  IF  THE  FIRE  IS  CONSIDERED. 

C  IN  THAT  CASE, IFIRE  (INCLUDED  FIRE)  WOULD  EQUAL  1  AND  THE  CHECK  TO 
C  SEE  IF  THE  VIEW  FACTOR  INTERSECTS  THE  FIRE  WOULD  BE  ACCOMPLISHED. 

£**  -kirk  **********  ****  **********  *****  ******£*  ********************* 

IF  (IFIRE  .EQ.  0)  GO  TO  450 
I F ( WVFNC ( I , K , I I , KK )  .EQ.  0.)  GO  TO  450 
FIREY  =  -R  +  (R/MJ  *  FPAND) 

RF  =  DIAFP  /  2.0 


RH01*COS (THETA( I , K) ) 
=  RH01*SIN(THETA(I ,K) ) 
2(1, K) 

r *rn<; CTHRTa ^tt  kku 


XJ  =  R*COS ( THETA( II , KK) ) 

YJ  =  R*SIN(THETA(II ,KK) ) 

ZJ  =  Z(II.KK) 

XD  =  XJ  -  XI 

YD  =  YJ  -  YI 

ZD  =  ZJ  -  ZI 

A  =  XD**2  +  ZD**2 

B  =  2.0  *(ZI  -  HSZ) *ZD  +  2.0*XI*XD 

C  =  XI**2  +  (ZI  -  HSZ ) **2  -  RF**2 

QUAD  =  B**2  -  4 . *A*C 

IF  (  QUAD  .LT.  0.)  THEN 
GO  TO  450 


T1  =  (-B  + 


SQRT ( QUAD ) ) / ( 2 . *A ) 
.SQRT(QUAD) )/(2.*A) 


Yl  =  T1*(YJ  -  YI)  +  YI 
Y2  =  T2*(YJ  -  YI)  +  YI 

END  IF 

IF  (  Yl  .GT.  FIREY  .AND.  Yl  .LT.  R  )  THEN 
WVFNC (I ,K,II ,KK)  =  0.0 

ELSE  IF (  Y2  .GT.  FIREY  .AND.  Y2  .LT.  R)  THEN 
WVFNC ( I , K , I I , KK )  =  0.0 

END  IF 

C  END  OF  MODIFICATION  TO  WALL  VIEW  FACTORS  WHEN  THE  FIRE  IS  INCLUDED 
£********************************************************************** 

C  WRITE ( 6 , * ) I , K , I I , KK , WVFNC ( I , K , I I , KK ) 

450  WVFCM ( I I , KK , I , K )  =  WVFNC (I ,K, II ,KK)  *  DAREA1/  DAREA2 

400  CONTINUE 

WRITE ( 6 , * ) 

C************************************************************************ 

C  WVFSC  WALL  VIEW  FACTOR  FROM  SOUTH  SPHERE  TO  CYLINDER 
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DO  500  I  =  NIS.NI-1 
DO  500  K  =  MB.NK-l 
DO  500  II  =  NIS,  MI-1 
DO  500  KK  =  MA ,NB-1 
IF  (I  .EO.  II  .AND.  K  .EQ.  KK)  THEM 
WVFSC ( I , K , I I , KK)  =0.0 
ELSE 

PHI 1  =  PI  -  (PHI (K)  +  . 5*DPHIN ) 

RHOl  =  R  *  SIM  (PHI1 ) 

HI  =  R  *  COS(PHIl) 

Z1  =  Z( I , K) 

Z2  =  Z ( I I , KK ) 

THETAD  =  ABS (  THETA ( I , K)  -  THETA (II ,KK) ) 

IF  (THETAD. GT.  Pi)  THETAD  =  2*PI  -  THETAD 
DAREAI  =  AREA(K+HKN+l-NB) 

DAREA2  =  AREAC 

ASO  =  RH01**2  +  R**2  -  2 . Q*RH01*R*C0S (THETAD ) 

BSQ  =  (Z1  -Z2)**2 
RSQ  =  ASQ  +  BSO 
RD  =  SORT (RSQ) 

ZETA1S  =  BSQ  +  RH01**2 

ZETA2S  =  R**2  +  (Z2  -ZCYL2)**2 

CBETA1  =  (R**2  +  RSQ  -  ZETA1S)/  (2.0*R*RD) 

CBETA2  =  (R**2  +  RSQ  -  ZETA2S )/  (2.0*R*RD) 

WVFSC (I , K, II ,KK)  =  (C3ETA1*CBETA2)/(PI*RSQ)  *  DAREA2 
END  IF 

C*********************************************************************** 

C  THE  FOLLOWING  SECTION  IS  ONLY  INCLUDED  IF  THE  FIRE  IS  CONSIDERED. 

C  IN  THAT  CASE, IFIRE  (INCLUDED  FIRE)  WOULD  EQUAL  1  AND  THE  CHECK  TO 
C  SEE  IF  THE  VIEW  FACTOR  INTERSECTS  THE  FIRE  WOULD  BE  ACCOMPLISHED. 

******  *****:*******  -kick  7**  jerk -kick  x-k-k  ******  A*********  *****  *******  *****  ** 

IF  (IFIRE  .EQ.  0)  GO  TO  550 

IF (WVFSC ( I , K , II , KK)  .EQ.  0.)  GO  TO  550 

FIREY  =  -R  +  (R/MJ  *  FPAND) 

RF  =  DIAFP  /  2.0 


XI  =  RH01*C0S(THETA(I,K)) 

YI  =  RH01*SIN(THETA(I,K)) 

ZI  =  Z ( I , K) 

XJ  =  R*COS(THETA(II,KK)) 

YJ  =  R*SIN(THETA(II ,KK) ) 

ZJ  =  Z(II ,KK) 

XD  =  XJ  -  XI 

YD  =  YJ  -  YI 

ZD  =  ZJ  -  ZI 

A  =  XD**2  +  ZD**2 

B  =  2.0  *(ZI  -  HSZ) *ZD  +  2.0*XI*XD 

C  =  XI**2  +  (ZI  -  HSZ)**2  -  RF**2 

QUAD  =  B**2  -  4.*A*C 

IF  (  QUAD  .LT.  0.)  THEN 
GO  TO  550 

ELSE 

T1  =  (-B  +  SQRT(QUAD) ) / ( 2 . *A) 

T2  =  ( -B  -  SQRT(QUAD) )/(2.*A) 

YI  =  T1*(YJ  -  YI)  +  YI 
Y2  =  T2*(YJ  -  YI)  +  YI 

END  IF 

IF  (  YI  .GT.  FIREY  .AND.  YI  .LT.  R  )  THEN 
WVFSC( I ,K , II , KK)  =  0.0 

ELSE  IF(  Y2  .GT.  FIREY  .AND.  Y2  .LT.  R)  THEN 
WVFSC (I , K , II , KK)  =  0.0 

END  IF 

C  END  OF  MODIFICATION  TO  WALL  VIEW  FACTORS  WHEN  THE  FIRE  IS  INCLUDED 

C******************************************** ******************* ******* 

550  WVFCS( II ,KK, I ,K)  =  WVFSC( I , K , I I , KK)  *  DAREAI/  DAREA2 
500  CONTINUE 

WRITE(6 ,*) 


«! 
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C  WVFCC  WALL  VIEW  FACTOR  FROM  CYLINDER  TO  CYLINDER 

DO  600  I  =  MIS, MI-1 
DO  600  K  =  NA,NB-1 
DO  500  II  =  MIS,  MI-1 
DO  600  KK  =  MA , MB - 1 
IF  (I  .EQ.  II  .AMD.  K  .EQ.  KK)  THEN 
WVFCC ( I , K , II , KK)  =  0.0 
ELSE 

21  =  Z(I ,K) 

Z2  =  Z ( I I , KK ) 

THETAD  =  ASS (  THETA ( I , K)  -  THETA(II ,KK) ) 

IF  (THETAD. GT.  PI)  THETAD  =  2*PI  -  THETAD 
ASQ  =  2.*R**2*(1.0-C0S(THETAD)) 

BSQ  =  (Z1  -Z2)**2 
RSQ  =  ASO  +  BSQ 
RD  =  SQRT(RSQ) 

7FT61C:  =  pen  +  R**? 

CBETA1  =  (R**2  +  RSQ  -  ZETA1S)/  (2.0*R*RD) 

CBETA2  =  CBETA1 

WVFCC ( I , K , I I , KK)  =  (CBETA1*CBETA2 ) / (PI*RSQ)  *  AREAC 
END  IF 

£****  A**********  ***************  *****************  A*********************:** 

C  THE  FOLLOWING  SECTION  IS  ONLY  INCLUDED  IF  THE  FIRE  IS  CONSIDERED. 

C  IN  THAT  CASE, IFIRE  (INCLUDED  FIRE)  WOULD  EQUAL  1  AND  THE  CHECK  TO 
C  SEE  IF  THE  VIEW  FACTOR  INTERSECTS  THE  FIRE  WOULD  BE  ACCOMPLISHED. 

IF  (IFIRE  .EQ.  0)  GO  TO  650 

IF (WVFCC ( I , K , II , KK)  .EQ.  0.)  GO  TO  650 

FIREY  =  -R  +  (R/MJ  *  FPAND) 

RF  =  DIAFP  /  2.0 

XI  =  R*C03 ( THETA ( I , K) ) 

YI  =  r*sin(theta(i,k)) 

ZI  =  2 ( I  K) 

XJ  =  R*COS(THETA(II,KK)) 

YJ  =  R*SIN(THETA( II , KK) ) 

ZJ  =  Z (II , KK) 

XD  =  XJ  -  XI 
YD  =  YJ  -  YI 
ZD  =  ZJ  -  ZI 
A  =  XD**2  +  ZD**2 

B  =  2.0  *(ZI  -  HSZ ) *ZD  +  2.0*XI*XD 
C  =  XI**2  +  (ZI  -  HSZ ) **2  -  RF**2 
QUAD  =  B*^2  -  4.*A*C 

IF  (  QUAD  .LT.  0.)  THEN 
GO  TO  650 


+  SQRT(QUAD) )/ 1 

f2.*A) 

-  SQRT  ( C 

)UAD ) ) / ! 

J2.*A) 

(YJ  -  YI 

)  +  YI 

(YJ  -  YI 

>  +  YI 

T1  =  ( -B 
T2  =  ( -B 
YI  =  Tl* 


END  IF 

IF  (  YI  .GT.  FIREY  .AND.  YI  .LT.  R 
WVF  CC ( I , K , 1 1 , KK )  =  0.0 
ELSE  IF (  Y2  .GT.  FIREY  .AND.  Y2  .LT 
WVFCC (I ,K, II ,KK)  =  0.0 

ENDIF 


)  THEN 
.  R)  THEN 


C  END  OF  MODIFICATION  TO  WALL  VIEW  FACTORS  WHEN  THE  FIRE  IS  INCLUDED 

650  CONTINUE 
600  CONTINUE 

WRITE ( 6 , * ) 

RETURN 

END 


SUBROUTINE  VIEW 

COMMON/ BL1 /  NIS , NI , NKS , NK , NA , MB , MI , MK , MKN , MKS , MKC , CL , DTHETA , 
&  DPHIN , DPHIS , DZ1 ,DZ2 , DZ3 , ZI , R , PI , ZCYL1 ,ZCYL2 
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non  a  -  a  a-  a- 


C0MM0N/BL2/  PHI(33) ,THETA(2 : 21 , 33 ) ,Z(2 :21 ,33) ,AREA(10) , AREAC 

C0MM0N/BL3/  MREGN1 , HREGM2 , MREGN3 , IREGN1 , IREGN2 , IREGN3 , KSM1 , KSH2 , 

&  KSM3 , KSM4 , KSM5 , KSM6 

C0MM0N/BL4/  VFMXR( 579 ,  579 )  ,DELY(2,12)  ,  RF 

COMMON/BL5/WVFNN(2:21,3:7,2:21,3:7),WVFSS (2:21, 26:30, 2:21, 26:30), 

&  WVFSN( 2  : 21 , 26  : 30 , 2  : 21 , 3  -.7  )  WVFNC (2:21,3:7,2:21,3:25)  , 

&  WVFCS  2:21,3:25,2:21,26:30) ,  WVFSC( 2 : 21 , 26 :30 , 2 :21 , 8 :25 ) , 

&  WVFNS (2:21,3:7,2:21,26:30) , WVFCN(2 :21, 3:25, 2:21, 3:7) , 

&WVFCC( 2:21, 8:25, 2:21, 8:25) 

COMMON/ BL7 /  NJS , N J , MJ , HSZ , FPAND , HS ANG ( 2 , 1 2 ) , Y ( 2 , 1 2 ) , HS Y , DI AFP , 
&VFHNS (2 , 12, 2:21, 3:7) , VFHSS (2 , 12,2:21,26:30) , VFHC(2 , 12 , 2:21,3:25), 
&VFNSH(2  .-21,3:7,2, 12) ,  VFSSH(2  : 21 , 26  : 30 , 2 , 12)  ,VFCH(2  :21 , 8  :25 ,2 , 12) 

COMMON/ BLK8/VFMXC( 579 ,579) ,VFMXIN(579 , 579) , 

&  CONSRA,  NHSZ, AR( 579) ,EM( 579) , IFIRE 

VFMXR  =  VIEW  FACTOR  MATRIX  ,  VIEW  FACTORS  BEFORE  MODIFICATION* 
THIS  IS  A  579X579  MATRIX  FOR  THIS  RUN 
KSM1-6  =  DUMMY  VARIABLES  USED  TO  NUMBER  THE  CELLS  FROM  1-579 

SET  UP  VIEW  FACTOR  COEF^T'  ENT  MATRIX,  VFMXR 

I ,  K  IS  THE  CELL  NUMBER  STARTING  FROM 

II,  KK  IS  THE  CELL  NUMBER  GOING  TO 

C  VFMXR  FOR  NORTH  SPHERE  TO  NORTH  SPHERE,  CYLINDER,  SOUTH  SPHERE 

KSM1  =  MREGN1 
DO  5  K  =  NKS,  NA-1 
DO  5  I  =  NIS,  NI-1 
KSM1  =  KSM1  +  1 
KSM2  =  1 
KSM3  =  MREGN2 
KSM5  =  MREGN3 

C  VFMXR  FOR  NORTH  SPHERE  TO  NORTH  SPHERE 
DO  10  KK  =  NKS,  NA-1 
DC  10  II  =  NIS,  NI-1 

VFMXR (KSM1,KSM2)  =  WVFNN( I , K , II , KK) 

C  WRITE (6,*)  KSM1 ,KSM2 ,  VFMXR ( KSM1 ,KSM2) 

KSM2  =  KSM2  +  1 
10  CONTINUE 

C  VFMXR  FOR  NORTH  SPHERE  TO  CYLINDER 
DO  15  KK  =  NA,  NB-1 
DO  15  II  =  NIS,  NI-1 

VFMXR ( KSM1 ,KSM3)  =  WVFNC ( I , K , II ,KK) 

VFMXR ( KSM3 ,KSM1)  =  WVFCN ( I I , KK , I , K) 

C  WRITE(6,*)  KSM1 , KSM3 ,  VFMXR ( KSM1 ,KSM3) , VFMXR (KSM3 ,KSM1) 

KSM3  =  KSM3  +  1 
15  CONTINUE 

C  VFMXR  FOR  NORTH  SPHERE  TO  SOUTH  SPHERE 
DO  20  KK  =  NB ,NK-1 
DO  20  II  =  NIS,  NI-1 

VFMXR ( KSM1 ,KSM5)  =  WVFNS ( I , K , II , KK) 

VFMXR(KSM5 , KSM1 )  =  WVFSN ( I I , KK , I , K) 

C  WRITE (6,*)  KSM1 , KSM5 ,  VFMXR (KSM1 , KSM5 ), VFMXR (KSM5 , KSM1 ) 

KSM5  =  KSM5  +  1 
20  CONTINUE 
5  CONTINUE 

C  VFMXR  FOR  CYLINDER  TO  _,  CYLINDER,  SOUTH  SPHERE 

KSM3  =  IREGN1 
DO  25  K  =  NA,  NB-1 
DO  25  I  =  NIS,  NI-1 
KSM3  =  KSM3  +  1 
KSM4  =  MREGN2 
KSM5  =  NREGN3 

C  VFMXR  FOR  CYLINDER  TO  CYLINDER 


a-  a- 


vTv.r.'v; 


V  V  -v 


30 


DO  30  KK  =  NA,  NB-1 
DO  30  II  =  MIS,  MI-1 

VFMXR ( KSM3 , KSM4 )  =  WVFCC ( I , K , I I , KK) 
WRITE (6,*)  KSM3 , KSM4 ,  VFMXR ( KSH3 ,KSM4) 
KSH4  =  KSM4  +  1 
CONTIHUE 


35 

25 


VFMXR  FOR  CYLINDER  TO  SOUTH  SPHERE 
DO  35  KK  =  MB,  MK-1 
DO  35  II  =  MIS,  MI-1 

VFMXR (KSM3,  KSM5 )  =  WVFCS ( I , K , II , KK) 

VFMXR (KSM5 ,  KSM3 )  =  WVFSC (II , KK , I , K) 

WRITE (6 , *)  KSM3 , KSM5 ,  VFMXR(KSM3 ,KSM5) ,VFMXR(KSM5 ,KSM3) 
KSM5  =  KSM5  +  1 
CONTINUE 
CONTINUE 


VFMXR  FOR  SOUTH  SPHERE  TO 

KSM5  =  IREGN2 
DO  40  K  =  MB,  NK-1 
DO  40  I  =  MIS,  NI-1 
KSM5  =  KSM5  +  1 
KSM6  =  MREGN3 


SOUTH  SPHERE 


i 


Sf 


C  VFMXR  FOR  SOUTH  SPHERE  TO  SOUTH  SPHERE 
DO  45  KK  =  MB,  NK-1 
DO  45  II  =  NIS,  NI-1 

VFMXR (KSM5,  KSM6 )  =  WVFSS(  I,K,II,KK) 
C  WRITE (6,*)  KSM5 , KSM6 ,  VFMXR ( KSM5 , KSM6 ) 

KSM6  =  KSM6  +  1 
45  CONTINUE 
40  CONTINUE 
RETURN 
END 


SUBROUTINE  HEAT 

COMMON/ BL 1 /  NI S , NI , NKS , NK , NA , NB , MI , MK , MKN , MKS , MKC , CL , DTHETA , 

&  DPHIN , DPHIS , DZ1 , DZ2 , DZ3 , Z1 , R , PI , ZCYL1 , ZCYL2 

COMMON/BL2/  PHI(33) ,THETA(2 :21 ,33) ,Z(2:21,33) ,AREA(10) , AREAC 

COMMON/ BL3/  MREGN1 , MREGN2 , MREGN3 , IREGN1 , IREGN2 , IREGN3 , KSM1 ,KSM2 , 

&  KSM3 , KSM4 , KSM5 , KSM6 

C0MM0N/BL4/  VFMXR{ 579 , 579 ) ,DELY(2 , 12 ) , RF 

COMMON/BL5/WVFNN(2 :21, 3:7,2:21,3:7) , WVFSS (2 :21 , 26 :30 , 2 :21 , 26 :30) , 
&  WVFSN(2:21,26:30, 2:21, 3 :7),WVFNC(2:21,3:7, 2:21, 8:25) , 

&  WVFCS(2:21, 8:25, 2:21, 26:30),  WVFSC(2 : 21 , 26 :30 , 2 :21 , 8 :25 ) , 

&  WVFMS (2 :21, 3:7, 2:21, 26:30) , WVFCN(2 :21, 8:25, 2:21, 3:7), 

&WVFCC(2: 21, 8:25, 2:21, 8:25) 

COMMON/ BL7 /  NJS , N J , MJ , HSZ , FPAND , HS ANG (2,12),Y(2,12), HSY , DI AFP , 
&VFHNS (2 ,12,2:21,3:7) , VFHSS (2,12,2:21,26:30) , VFHC( 2 ,12,2:21,8:25) , 
&VFNSH (2:21,3:7,2,12) , VFSSH(2 : 21 , 26 :30 , 2 , 12 ) , VFCH(2 : 21 , 8 : 25 , 2 , 12 ) 


5 

V- 


COMMON/BLK8/VFMXC (579,579) , VFMXIN( 579 , 579 ) , 

&  CONSRA,  MHSZ,AR(579) ,EM(579) , IFIRE 

DIMENSION  ASUM( 2 , 12 ) , COSUMN(2 , 12 ) , COSUMS ( 2 , 12) , FN ( 2 , 12 ) , FS ( 2 , 12 ) , 
&  CBN (2 ,12,2:21,3:7), CBS (2 , 12, 2:21, 26:30), CBC(2, 12, 2:21, 8:25) , 

&  ARN( 2 ,12,2:21,3:7) , ARS (2,12,2:21,26:30) , ARC (2,12,2:21,8:25) , 

&  SVFN (2,12) , SVFS (2 , 12) ,RDM(2 , 12 , 2:21,3:30) , DIST( 560 , 561 : 579 ) 


HSANG( I , J)  =  HEAT  SOURCE  ANGLE,  IT  IS  EITHER  90  OR  270  DEGREES  * 

Y( I ,  J)  =  FIRE  CELL  Y  LOCATION,  ALL  CELLS  ABOVE  THE  X  AXIS  * 

ARE  POSITVE  AND  ALL  CELLS  BELOW  ARE  NEGATIVE  * 

RDM ( I , J , I I , KK )  =  ARRAY  USED  TO  STORE  THE  DISTANCES  BETWEEN  THE  FIRE  * 
AND  THE  TANK  CELLS  * 

AREAR  =  THE  RECTANGULAR  AREA  OF  THE  FIRE  * 

AREACI  =  CIRCULAR  AREA  OF  THE  FIRE  (PI  *  RF**2)  * 

CBN  =  FOUR  INDICE  ARRAY  USED  TO  STORE  THE  CBETA1  VALUES  * 

FOR  THE  NORTH  SPHERE,  WHERE  THE  ORIGINATING  CELL  IS  * 
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0 


a 


uuuuu 


CBS 

CSC 

ARN 


k 

*  ARS  = 

k 

*  ARC  = 

* 

*  SVFN ( I , J )  = 

k 

*  SVFS(I,J)  = 

k 

*  COSUMN ( I ,  J ) 


*  COSUMS ( I , J) 

*  FN ( I , J ) 

J  FS(I,J) 


THE  FIRE  CELL  * 

FOUR  INDICE  ARRAY  FOR  THE  SOUTH  SPHERE  * 

FOUR  INDICE  ARRAY  FOR  THE  CYLINDER  * 

FOUR  INDICE  ARRAY  TO  STORE  THE  AREA  RATIO,  * 

AREA  OF  THE  FIRE  /  AREA  OF  THE  TANK  ELEMENT.  THIS  IS* 

FOR  THE  NORTH  SPHERE.  THE  AREA  OF  THE  FIRE  IS  A 
COMBINATION  OF  AREAR  AND  AREACI  * 

FOUR  INDICE  ARRAY  TO  STORE  THE  AREA  RATIO  FOR  THE  * 
SOUTH  SPHERE  * 

FOUR  INDICE  ARRAY  TO  STORE  THE  AREA  RATIO  FOR  THE  * 
CYLINDER  * 

ARRAY  TO  STORE  THE  SUM  OF  ALL  THE  VIEW  FACTORS  * 

FROM  A  FIRE  CELL  TO  ALL  THE  CELLS  ON  THE  NORTH  SIDE  * 
OF  THE  TANK,  CELLS  1-230  * 

ARRAY  TO  STORE  THE  SUM  OF  ALL  THE  VIEW  FACTORS  FROM  * 

A  FIRE  CELL  TO  ALL  THE  CELLS  ON  THE  SOUTH  SIDE  OF  * 

THE  TANK,  CELLS  281  -  560  * 

THE  ARRAY  TO  STORE  THE  SUM:  (1.  -  CBETA1 ) *VF (HEAT  * 

SOURCE  TO  A  TANK  CELL  ON  THE  NORTH  SIDE)  FOR  A  * 

PARTICULAR  FIRE  CELL  * 

THE  ARRAY  TO  STORE  THE  SIMILIAR  VALUE  FOR  THE  FIRE  * 
CELL  TO  THE  SOUTH  TANK  CELLS  * 

CORRECTION  FACTOR  FOP  A  FIRE  CELL  TO  THE  CELLS  ON  * 
THE  NORTH  SIDE  * 

CORRECTION  FACTOR  FOR  A  FIRE  CELL  TO  THE  CELLS  ON  * 
THE  SOUTH  SIDE  * 


k 

VFHNS 

= 

VIEW 

FACTOR 

FROM 

k 

VFNSH 

= 

VIEW 

FACTOR 

FROM 

k 

VFHSS 

= 

VIEW 

FACTOR 

FROM 

k 

VFSSH 

= 

VIEW 

FACTOR 

FROM 

k 

VFHC 

= 

VIEW 

FACTOR 

FROM 

k 

VFCH 

2 

VIEW 

FACTOR 

FROM 

k 


THE  HEAT  SOURCE  TO  THE  NORTH  SPHERE* 
THE  NORTH  SPHERE  TO  THE  HEAT  SOURCE* 
THE  HEAT  SOURCE  TO  THE  SOUTH  SPHERE* 
THE  SOUTH  SPHERE  TO  THE  HEAT  SOURCE* 
THE  HEAT  SOURCE  TO  THE  CYLINDER  * 
THE  CYLINDER  TO  THE  HEAT  SOURCE  * 

k 


*  FINDING  THE  VIEW  FACTORS  IS  SIMILAR  TO  THE  "WALL"  SUBROUTINE  AND  * 

*  THE  VARIABLES  USED  HERE  HAVE  THE  SAME  MEANING  AS  THOSE  FOUND  IN  * 

*  IN  THAT  SUBROUTINE.  * 

********************  A  ****  ******************************  ******************* 


C  FIND  THE  LOCATION  OF  THE  FIRE  CELLS,  ANGLE  AND  Y  LOCATION 

DO  200  I  =  1,2 
DO  200  J  =  NJS,  NJ-1 
DELY ( I , J )  =  R/MJ 
200  CONTINUE 

DO  210  I  =  1,2 
Y1  =  0.0 

DO  210  J  =  NJS, NJ-1 

IF  (  I  .EQ.  1  )  THEN 

HSANG( I , J)  =  PI/2.0 
Y( I , J)  =  Y1  +  DELY ( I , J) /2 . 0 
Y1  =  Y( I , J)  +  DELY ( I , J) /2 . 0 

ELSE 

HSANG ( I , J )  =  3.0  *  PI  /  2.0 
Y ( I , J )  =  Y1  -  DELY ( I , J) /2 . 0 
Y1  =  Y(I , J)  -  DELY ( I , J) /2 . 0 

END  IF 

210  CONTINUE 

WRITE(* ,*) 1 1  ','J  1  ,  '  Y  ', 'THETA 

DO  215  I  =  1 ,2 
DO  215  J  =  NJS, NJ-1 

WRITE ( * , * )  I , J , Y( I , J) ,  HSANG ( I , J ) 

215  CONTINUE 

**** ******************************************************************** 


Qk  kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

C  HEAT  SOURCE  VIEW  FACTOR  FROM  THE  HEAT  SOURCE  TO  THE  NORTH  SPHERE 

M  =  NJ-1 
DO  220  I  =  1,2 


150 


IF ( I  .EQ.  2)  M  =  MJ  -  FPAND 
DO  220  J  =  NJS ,  M 
SVFN ( I , J )  =0.0 

cosmm(i.j)  =o.o 

DO  220  II  =  HIS,  MI-1 
DO  220  KK  =  MRS,  HA-1 

PHI 1  =  PHI (KK)  +  0 . 5*DPHIN 
RHOl  =  R  *  SIM  (PHI 1 ) 

HI  =  R  *  COS  ( PHI 1 ) 

DAREA2  =  AREA(KK-MKS  +  1) 

HSY  =  Y( I , J) 

EANG  =  ABS (HSANG( I , J )  -  THETA( II , KK)  ) 

IF (EANG  .GT.  PI ) EANG  =  2.0*PI  -  EAMG 

ASO  =  RH01**2  +  HSY**2  -  2 . Q*RH01* ( ABS (HSY) ) *COS (EAMG) 

ZDIFF  =  HSZ  -  ZCYL1 

BSQ  =  (ZDIFF  +  HI )**2 

RSQ  =  ASO  +  BSQ 

RD  =  SQRf(RSQ) 

RDM ( I , J , 1 1 , KK )  =  RD 
ZETA2S  =  ZDIFF**2  +  HSY**2 

CBETA2  =  (R**2  +  RSQ  -  ZETA2S )  /  (2.0  *  R  *  RD) 

B  =  SQRT(BSQ) 

CBETA1  =  B/RD 

CBM ( I , J , II , KK)=C3ETA1 

VFHNS ( I , J , I I , KK )  =  ( (CBETA1*CBETA2)/(PI  *  RSQ))  *  DAREA2 
C  FIND  THE  AREA  THAT  THE  TANK  ELEMENT  "SEES  OF  THE  FIRE" 

AREAR  =  DIAFP  *  DELY(I,J) 

AREACI  =  PI  *(DIAFP/2.0)**2 

DAREA1  =  AREAR’'  ( 1 .  -CBETA1 )  +  AREACI*  (CBETA1) 

C  USE  RECIPROSITY 

VFMSH ( I I , KK , I , J )  =  VFHNS ( I , J , I I , KK )  *  DAREA1/DAREA2 
C  USED  TO  FIND  MODIFICATION  FACTOR 


& 


ARN ( I , J , I I , KK )  =  DAREA1/DAREA2 

SVFN ( I , J )  =  VFHNS ( I ,  J , 1 1 . KK )  +  SVFN(I,J) 

COSUMN ( I ,  J)  =  ( 1 . -CBETA1 $*VFHNS (I,J,II,KK)+ 

COSUMN(I,J) 


220  CONTINUE 


Qkkkk-k  kk  kkk  kkkk  *********  kkkkkkkkkkkk  ********  **************************** 


C  HEAT  SOURCE  VIEW  FACTOR  FROM  THE  HEAT  SOURCE  TO  THE  SOUTH  SPHERE 

M  =  NJ  -  1 
DO  230  I  =  1,2 

IF ( I  .EQ.  2)  M  =  MJ  -  FPAND 
DO  230  J  =  NJS,  M 
SVFS ( I , J )  =0.0 
COSUMS ( I , J)  =  0.0 
DO  230  II  =  NIS,  NI-1 
DO  230  KK  =  NB,  NK-1 

PHI1  =  PI  -  (PHI (KK)  +  0 . 5*DPHIS ) 

RHOl  =  R  *  SIN  (PHI1 ) 

HI  =  R  *  COS  ( PHI 1 ) 

DAREA2  =  ARE A ( KK+MKN + 1 - NB ) 

HSY  =  Y( I , J ) 

EANG  =  ABS (HSANG( I , J)  -  THETA (II ,KK)  ) 

IF (EANG  .GT.  PI )EANG  =  2.0*PI  -  EANG 

ASO  =  RH01**2  +  HSY**2  -  2 . 0*RH01* ( ABS (HSY) ) *C05 (EANG) 

ZDIFF  =  ZCYL2  -  HSZ 

BSQ  =  (ZDIFF  +  HI ) **2 

RSQ  =  ASQ  +  BSQ 

RD  =  SORT ( RSQ ) 

RDM(I,J,II,KK)  =  RD 
ZETA2S  =  ZDIFF**2  +  HSY**2 

CBETA2  =  (R**2  +  RSQ  -  ZETA2S )  /  (2.0  *  R  *  RD) 

B  =  SQRT(BSQ) 

CBETA1  =  B/RD 

CBS ( I , J , I I , KK)=CBETA1 

VFHSS ( I , J , I I , KK )  =  ( ( CBETA1*CBETA2 ) / (PI  *  RSQ) )*DAREA2 
C  FIND  THE  AREA  THAT  THE  TANK  ELEMENT  "SEES  OF  THE  FIRE'' 

AREAR  =  DIAFP  *  DELY(I,J) 
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AREACI  =  PI  * (DIAFP/ 2 . 0 ) **2 

DAREA1  =  AREAR*  ( 1 .  -CEETA1 )  +  AREACI* ( CBETA1 ) 

C  USE  RECIPROSITY 

VFSSH( II ,KK, I ,J)  =  VFHSS ( I , J , II , KK)  *  DAREA1/DAREA2 
C  USED  TO  FIND  THE  MODIFICATION  FACTOR 

ARS ( I , J , I I , KK)  =  DAREA1/DAREA2 

SVFS ( I , J )  =  VFHSS (I , J , I I  KK )  +  SVFS(I,J) 

COSUMS (I ,  J )  =  ( 1 . -CBETA1 ) *VFHSS ( I , J , II , KK)+ 

&  COSUHS ( I ,  J) 

230  CONTINUE 

Qkkkkkkkkkkkkkkkkkkkkk'kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
C  HEAT  SOURCE  VIEW  FACTOR  FROM  THE  HEAT  SOURCE  TO  THE  CYLINDER 

M  =  NJ  -  1 
DO  240  I  =  1,2 

IF ( I  .EQ.  2)  M  =  MJ  -  FPAND 
DO  240  J  =  NJS ,  M 
DO  240  II  =  MIS,  MI- I 
DO  240  KK  =  NA,  NB-1 
DAREA2  =  AREAC 
Z1  =  Z ( I I ,  KK ) 

HSY  =  Y( I ,  J ) 

EANG  =  A3S (HSANG ( I , J)  -  THETA(II , KK) ) 

IF (EANG  .GT.  PI ) EANG  =  2.0*PI  -  EANG 

ASO  =  R**2  +  HSY**2  -  2.0*R*(ABS(HSY) )*COS(EANG) 

ZDIFF  =  ABS (HSZ  -  Zl) 

BSQ  =  ZDIFF^*2 
RSQ  =  ASQ  +  BSQ 
RD  =  SQRT(RSQ) 

RDM(I,J,II,KK)  =  RD 
ZETA2S  =  ZDIFF**2  +  HSY**2 

CBETA2  =  (R**2  +  RSQ  -  ZETA2S)  /  (2.0  *  R  *  RD) 

B  =  SQRT(BSO) 

CBETA1  =  B/RD 

CBC ( I , J , I I , KK ) =CBETA1 

VFHC ( I ,  J , II , KK)  =  ( (C5ETA1*CBETA2) / (PI  *  RSQ) )*DAREA2 
C  FIND  THE  AREA  THAT  THE  TANK  ELEMENT  “SEES  OF  THE  FIRE" 

AREAR  =  DIAFP  *  DELY(I,J) 

AREACI  =  PI  *(DIAFP/2.0)**2 

DAREA1  =  AREAR* ( 1 . - CBETA1 )  +  AREACI* (CBETA1 ) 

C  USE  RECIPROSITY 

VFCH( II , KK , I , J)  =  VFHC (I , J , II ,KK)  *  DAREA1/DAREA2 
C  USED  TO  FIND  THE  MODIFICATION  FACTOR 

ARC ( I , J , II , KK)  =  DAREA1/DAREA2 
C  NORTH  CELLS 

IF  (  KK  . LT . ( (NB-NA) /2 .  +  NA ) ) THEN 

SVFN ( I ,  J )  =  SVFN ( I , J )  +  VFHC ( I , J , II , KK) 

COSUMN(I , J)  =(1.-CBETA1) *VFHC ( I , J , II , KK)  +  COSUMN(I,J) 

r  QOTiTW  rrr 

ELSE  IF  (  KK  .GE. ( (NB-NA) /2.  +  NA))  THEN 

SVFS(I,J)  =  SVFS ( I , J )  +  VFHC (I , J, II ,KK) 

COSUMS ( I , J )  = ( 1 . -CBETA1 ) *VFHC ( I , J , II , KK)  +  COSUMS(I,J) 

END  IF 

240  CONTINUE 

Qkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

C  FIND  THE  MODIFICATION  FACTOR  FOR  THE  FIRE  CELLS 
C  NOTE  THAT  THIS  OUTER  DO  LOOP  IS  USED  TO  MODIFY  THE  FN/FS  VALUES 
C  FURTHER  ITERATIONS  IMPROVE  THE  ACCURACY  OF  THIS  MODIFICATION  ROUTINE 
C  FROM  PRIOR  TESTING  FOR  THIS  CASE,  TWO  ITERATIONS  ARE  SUFFICIENT 

DO  246  N  =  1,2 
M  =  NJ  -1 
DO  250  I  =  1,2 

IF ( I  .EQ.  2)  M  =  MJ  -  FPAND 
DO  250  J  =  NJS ,M 

FN(I.J)  =  (  1.  -SVFN ( I , J ) ) /  COSUMN ( I , J ) 

FS ( I ,  J )  =  (  1.  -SVFS ( I , J  ) )  /  COSUMS ( I , J ) 

250  CONTINUE 


-■>  rn 


■I.v 


■  l'»  i»» 


C  USE  THIS  FN/FS  VALUE  TO  MODIFY  THE  VIEW  FACTOR  FROM  THE  FIRE  CELL 
C  TO  THE  TANK  CELL,  THEN  CALCULATE  A  NEW  FN/FS  BY  USING  SVFN/COSUMN 
C  MATRICES  THAT  ARE  NOW  MODIFIED  AGAIN. 


M  =  NJ  -1 
DO  255  I  =  1,2 

IF( I  .EQ.  2)  M  =  MJ  -  FPAND 
DO  255  J  =  NJS.M 
COSUMN ( I , J )  =  0. 

COSUMS ( I. J)  =  0. 

SVFN ( I ,  J  )  =  0. 

SVFS(I,J)  =  0. 

DO  255  II  =  MIS,  NI-1 
DO  255  KK  =  NKS ,NK-1 

C  THE  NORTH  SPHERE 

IF  (  KK  .LT.  NA)  THEN 

VFHNS ( I , J , I I , KK ) =VFHNS ( I , J , I I , KK ) * ( 1 . +FN ( I , J ) * 

&  ( 1 . -CBN (I , J , II ,KK) ) ) 

C  USE  RECIPROSITY 

VFNSH( II , KK, I , J)  =  VFHNS (I , J , II , KK) *ARN( I , J , II ,KK) 

C  FIND  A  MEW  SVF/ COSUM 

SVFN ( I , J )  =  VFHNS (I , J, II ,KK)  +  SVFM(I,J) 

COSUMN(I,  J)  =  (1.-CBN(I,  J,II,KK))*VFHNS(I,  J,II,KK)  +  COSUMN  ( I,  J) 

C  NORTH  SIDE  OF  THE  CYLINDER  CELLS 

ELSE  IF  (KK  .LT.  ((NB-NA)/2  +NA) )  THEN 
VFHC(I, J,II,KK)=VFHC(I, J , II ,KK) *( 1 . +FN( I , J) * 

&  ( 1 . -CBC( I , J , II ,KK) ) ) 

C  USE  RECIPROSITY 

VFCH(II ,KK. I , J)  =  VFHC ( I , J , I I , KK ) *ARC ( I , J , I I , KK ) 

C  FIND  A  NEW  SVF/COSUM 

SVFN ( I , J )  =  VFHC ( I , J , II , KK)  +  SVFN(I,J) 

COSUMN ( I , J)=( 1 . -CBC( I , J , II , KK) ) *VFHC ( I , J , II , KK)  +  COSUMN ( I, J) 

C  SOUTH  SIDE  OF  THE  CYLINDER  CELLS 

ELSE  IF  (KK  .GE.  ((NB-NA)/2  +NA)  .AND.  KK  .LT.NB  )  THEN 
VFHC (I , J , II ,KK)=VFHC(I , J , II,KK)*(1.+FS(I,J)* 

&  ( 1 . -CBC( I , J , II , KK) ) ) 

C  USE  RECIPROSITY 

VFCH( II , KK  I , J)  =  VFHC ( I , J , I I , KK ) *ARC ( I , J , I I , KK ) 

C  FIND  A  NEW  SVF/COSUM 

SVFS ( I , J )  =  VFHC (I , J, II ,KK)  +  SVFS(I,J) 

COSUMS (I , J)= ( 1 . -CBC ( I , J , I I , KK) ) *VFHC ( I , J , II , KK)  +  COSUMS ( I, J) 
ELSE 

C  SOUTH  SPHERE 

VFHSS ( I . J , II , KK)=VFHSS ( I , J , II , KK) *( 1 . +FS ( I , J) * 

&  ( 1 . -CBS (I , J , II , KK) ) ) 

C  USE  RECIPROSITY 

VFSSH( II , KK , I , J)  =  VFHSS ( I , J , II , KK) *ARS ( I , J , II , KK) 

C  FIND  A  NEW  SVF/COSUM 

SVFS ( I , J )  =  VFHSS (I , J , II , KK)  +  SVFS(I,J) 

COSUMSd,J)  =  d.-CBSd,J,II,KK))*VFHSS(I,J,II,KK)  +  COSUMS(I,J) 

ENDIF 
255  CONTINUE 
246  CONTINUE 

fc  -k  -k  *  *  *  *  ‘k  -k  -k  -k  "k  *  *  -k  •k  *  •k  A  *  *  *  -k  "k  "k  -k  -k  *  A  •k  •k  •k  -k  'k  Jc  A  "k  *  *  -k  "k  •k  *  •k  ■k  *  'k  'k  *  *  *  *  *  •k  -k  *  'k  *  *  *  ■k  *  *  -k  *  *  "k  -k  *  *  * 

C  CONVERT  THE  VIEW  FACTORS  INTO  THE  VFMXR  MATRIX.  THE  FIRE  CELLS  WILL 
C  BE  NUMBERED  FROM  THE  FIRE  PAN  TO  THE  TOP  OF  THE  CYLINDER.  (561-579) 

C  CHANGE  THE  FOUR  INDICE  ARRAY  FOR  THE  DISTANCE  BETWEEN  THE  CELLS  TO  A 
C  TWO  INDICE  ARRAY,  CALLED  DIST(1,2).  NOTE  THE  VIEW  FACTORS  FROM  THE  FIRE 
C  TO  THE  TANK  ARE  DIVIDED  BY  TWO  BECAUSE  OF  THE  TWO  SIDEDNESS  OF  THE 
C  OF  THE  FIRE 

KSM1  =  IREGN3 
DO  260  I  =  1,2 
L  =  2  +  1  -I 
M  =  NJ  -  1 
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IF  (L  .EQ.  2)  M  =  MJ  -  FPAND 
DO  260  J  =  MJS ,  H 

IF  (  L.EQ.  2)  THEN 
JJ  =  M+NJS  -J 
ELSE 

JJ  =  J 
END  IF 

KSM1  =  KSM1  +  1 
KSM2  =  1 
KSH3  =  MREGN2 
KSM4  =  MREGN3 


C  FROM  THE  HEAT  SOURCE  TO  THE  NORTH  SPHERE 
DO  265  KK  =  NKS ,  MA-1 
DO  265  II  =  NIS.NI-1 

VFMXR ( KSM1 , KSM2 )  =  VFHNS (L , JJ # II ,KK) /2 .0 
C  USE  RECIPROSITY  ... 

VFMXR (KSM2.KSM1)  =  VFNSH (II,KK,L,JJ) 

DIST(KSM2 ,KSM1 )  =  RDM(L , JJ , II , KK) 

KSM2  =  KSM2  +  1 
265  CONTINUE 

C  FROM  THE  HEAT  SOURCE  TO  THE  CYLINDER 
DO  2.0  KK  =  NA,  MB- I 
DO  270  II  =  NIS,  MI-1 

VFMXR (KSM1,KSM3)  =  VFHC(L , JJ , II ,KK)/2 .0 
C  USE  RECIPROSITY 

VFMXR (KSM3,KSM1)  =  VFCH(II,KK,L, JJ) 

DIST(KSM3 , KSM1 )  =  RDM(L , J J , II , KK) 

KSM3  =  KSM3  +  1 
270  CONTINUE 

C  FROM  THE  HEAT  SOURCE  TO  THE  SOUTH  SPHERE 
DO  275  KK  =  NB,  NK-1 
DO  275  II  =  NIS,  NI-1 

VFMXR (KSM1.KSM4)  =  VFHSS (L , JJ , II ,KK) /2 . 0 
C  USE  RECIPROSITY 

VFMXR (KSM4,KSM1)  =  VFSSH(II , KK,L. JJ) 

D I ST ( KSM4 , KSM1 )  =  RDM (L,JJ,II,KK; 

KSM4  =KSM4  +  1 

275  CONTINUE 
260  CONTINUE 

DO  276  I  =  561,579 
DO  276  J  =  561,579 
VFMXR (I , J )  =  0.0 

276  CONTINUE 

£******  ******  ************  *****  ******  ******  *********  ***************** 

C  THE  FOLLOWING  SECTION  CORRECTS  FOR  THE  VIEW  FACTORS  FROM  THE  TANK 
C  TO  THE  FIRE.  SINCE  THE  EXACT  AREA  OF  THE  FIRE  IS  NOT  KNOWN  THERE 
C  MAY  BE  AN  ERROR  IN  THE  CALCULATION.  THE  TOTAL  SUM  OF  THE  VIEW  FACTOR 
C  FROM  ONE  CELL  TO  EVERYTHING  IN  THE  TANK  MUST  EQUAL  ONE.  THEREFORE 
C  THE  VIEW  FACTORS  FROM  THE  TANK  TO  THE  FIRE  MUST  BE  MODIFIED  AS 
C  AS  FOLLOWS: 

C  VARIABLES  VFTSUM  =  VIEW  FACTOR  TOTAL  SUM,  FROM  ONE  CELL  TO  ALL 

C  THE  OTHER  CELLS  IN  THE  TANK  INCLUDING  THE  FIRE 

C  DENOM  =  DENOMINATOR  OF  THE  MODIFCATION  WHICH  IS  A 

C  SUM  OVER  THE  FIRE  CELLS 

C  A  =  MODIFICATION  FACTOR 

C 


DO  280  I  =  1,  560 
VFTSUM  =  0. 

DENOM  =  0. 

DO  285  J  =  1,  579 

VFTSUM  =  VFTSUM  +  VFMXR ( I, J) 

IF(  J  .GE.  561)  THEN 

DENOM  =  DENOM  +  VFMXR ( I , J)/ (SQRT(1 .+(DIST(I , J) /RF)**2 ) ) 

ENDIF 

285  CONTINUE 
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A  =  (l.-VFTSUM)  /  DENOM 
DO  290  K  =  561,579 

VFMXR( I , K)  =  (1.+  A/ (SQRT (1 . +  (DIST ( I ,K)/RF)**2) ) )*VFMXR(I ,K) 
290  CONTINUE 
280  CONTINUE 

RETURN 

END 

SUBROUTINE  INVER 

COMMON/ BL1 /  NIS , NI , NKS , NK , NA , MB , MI , MK , MKN , MKS , MKC , CL , DTHETA , 

&  DPHIN , DPHIS , DZ1 , DZ2 , DZ3 , Z1 , R , PI , 2CYL1 , ZCYL2 

COMMON/ BL2/  PHI (33 ) ,THETA(2 :21 , 33 ) ,Z(2 :21 , 33) ,AREA(10) , AREAC 

COMMON/BL3/  MREGN1 ,MREGN2 ,MREGN3 , IREGN1 , IREGN2 , IREGN3 ,KSM1 , KSM2 , 

&  KSM3 , KSM4 , KSM5 , KSM6 

C0MM0N/BL4/  VFMXR( 579 , 579 ) , DELY(2 , 12) , RF 

COMMON/ BL5/WVFNN( 2 :21, 3:7, 2:21, 3:7) , WVFSS(2 :21, 26:30, 2:21, 26:30) , 

&  WVFSN( 2:21, 26:30, 2:21, 3 :7),WVFNC(2s21, 3:7, 2 :21,8s 25 ) , 

&  WVFCS  2:21,8:25,2:21,26:30)  ,  WVFSC(2  :21 , 26 :30 , 2 : 21 , 8 :25 ) , 

&  WVFNS (2:21,3:7,2:21,26:30) , WVFCN (2:21,8:25,2:21,3:7) , 

&WVFCC (2:21,8:25,2:21,3:25) 

COMMON/ BL7 /  N JS , N J , MJ , HSZ , FPAND , HSANG (2, 12), Y (2, 12), HSY , DI AFP , 
&VFHNS (2 , 12,2:21,3:7) , VFHSS (2 , 12 , 2  : 21 , 26 :30 j , VFHC(2 , 12 , 2 :21 , 8 : 25 ) , 
&VFNSH(2:21,3:7,2,12) ,VFSSH(2 :21 , 26 : 30 , 2 , 12) , VFCH(2 : 21 , 8 : 25 , 2 , 12) 

COMMON/ BLK8/VFMXC (579,579), VFMXIN (579,579), 

&  CONSRA,  NHSZ,AR(579) ,EM(579) I, IFIRE 

k  k  k  *  *  ★  *  *  k  'k  k  k  k  *  *  *  k  *  *  *  *  k  k  *  k  k  k  k  k  -k  k  k  *  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  *  *  k  k  k  *  k  *  k  k  *  *  k  k  k  k  * 

*  WKAREA  =  WORK  SPACE  REQUIRED  BY  THE  IMSL  ROUTINE  * 

*  VFMXC  =  MATRIX  MODIFIED  BEFORE  INVERSION  AND  THEN  LATER  * 

*  USED  TO  STORE  THE  COEFICIENTS  FROM  THE  INVERTED  * 

*  MATRIX  TIMES  THE  RIGHT  HAND  MATRIX.  THE  "G"  MATRIX* 

*  VFMXR  =  ORIGINAL  MATRIX  WITH  THE  VIEW  FACTORS  THEN  * 

*  MULTIPLIED  BY  -SIGMA  TO  GIVE  THE  RIGHT-HAND  MATRIX  * 

*  VFMXIN  =  INVERTED  VFMXC  MATRIX  FROM  THE  IMSL  ROUTINE  * 

*  SIGMA  =  STEFAN-BOLTZMAN  CONSTANT  * 

*  EM(J)  =  EMMISIVITY  * 

*******a****************************************************************** 


*  WKAREA  =  WORK  SPACE  REQUIRED  BY  THE  IMSL  ROUTINE  * 

*  VFMXC  =  MATRIX  MODIFIED  BEFORE  INVERSION  AND  THEN  LATER  * 

*  USED  TO  STORE  THE  COEFICIENTS  FROM  THE  INVERTED  * 

*  MATRIX  TIMES  THE  RIGHT  HAND  MATRIX.  THE  "G"  MATRIX* 

*  VFMXR  =  ORIGINAL  MATRIX  WITH  THE  VIEW  FACTORS  THEN  * 

*  MULTIPLIED  BY  -SIGMA  TO  GIVE  THE  RIGHT-HAND  MATRIX  * 

*  VFMXIN  =  INVERTED  VFMXC  MATRIX  FROM  THE  IMSL  ROUTINE  * 

*  SIGMA  =  STEFAN-BOLTZMAN  CONSTANT  * 

*  EM(J)  =  EMMISIVITY  * 

******* A****************************************************************** 

DIMENSION  WKAREA ( 579 ) 

C  SIGMA  IS  SET  TO  ONE  IN  THIS  PROGRAM,  THE  ACTUAL  VALUE  OF  SIGMA  WILL 
C  BE  USED  IN  THE  TANK  PROGRAM. 

C  SIGMA  =  1.714E-9 
SIGMA  =1.0 
CONSRA  =  1. 

MZ  =  IREGN3 
NZ  =  MZ  +  19 
DO  10  J  =  1,  NZ 

IF  (  J  .LE.  MZ  )  THEN 
EM( J)  =  .84 

ELSE 

EM( J)  =  .81 

END  IF 

10  CONTINUE 

CCTO  SAVE  SPACE,  THE  LEFT  HAND  MATRIX  WILL  BE  CALLED  VFMXC  AND 
CCLATER  WILL  BE  WRITTEN  OVER 
DO  15  I  =  1,  NZ 
DO  15  J  =  1,  NZ 

VFMXC ( I , J )  =(EM( J)  -1 . ) *VFMXR( I , J )  /  EM(J)/AR(J) 

15  CONTINUE 

DO  20  I  =  1 , NZ 

VFMXC (1,1)  =  ( 1 . -VFMXR ( I , I ) *( 1 . -EM( I ) ) )  /  (AR(I)  *EM(I)) 

20  CONTINUE 

CCTHE  RIGHT  HAND  MATRIX  WILL  BE  CALLED  VFMXR  AND  WILL  REPLACE 
CCTHE  ORIGINAL  VIEW  FACTOR  MATRIX 
DO  25  I  =  1 ,NZ 
DO  25  J  =  1 ,MZ 

VFMXR ( I , J )  =  -  VFMXR ( I , J ) *S IGMA 
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25  CONTINUE 

DO  26  I  =  1  ,NZ 

VFHXR (1,1)  =  SIGMA+VFMXR(I,I) 

26  CONTINUE 

MN  =  NZ 
MM  =  NZ 
IA  =  NZ 
IAIN  =  NZ 
IDGT  =  3 

CALL  LINV1F ( VFMXC , I A , NN , VFMXIN , IDGT , WKAREA , IER) 

C  MULTIPLY  THE  INVERTED  MATRIX  BY  THE  RIGHT  HAND  MATRIX  TO  GET  THE 
C  REQUIRED  "G"  MATRIX 
DO  30  I  =  1,  NZ 
DO  30  J  =  1,  NZ 
VFMXC ( I , J )  =  0. 

DO  30  K  =  1,  NZ 

VFMXC ( I , J )  =  VFMXC (I , J)  +  VFMXIN (I , K)*VFMXR(K, J ) 

30  CONTINUE 

C  THE  FOLLOWING  PRINT  STATEMENTS  CHECK  A  FEW  ROWS  TO  SEE  WHAT  THE 

C  ELEMENTS  ARE.  THESE  PRINT  STATEMENTS  CAN  BE  OMITTED 
WRITE (6 ,  *)  'I  ’ ,'J  'VFMXC 

DO  50  I  =  1,  2 

DO  50  J  =  1,  NZ 

WRITE (6,*)  I,J,  VFMXC ( I , J ) 

50  CONTINUE 

DO  51  J  =  1,  NZ 
I  =  561 

WRITE(6,*)  I,J,  VFMXC(I , J) 

51  CONTINUE 

C  THIS  DO  LOOP  SUMS  UP  THE  ROW  OF  THE  "G"  MATRIX  TO  SEE  IF  IT  GOES  TO 
C  ZERO 


IV 

JS 

r 

Y> 


Vi 
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DO  56  I  =  1,  579 
AA  =  0. 

DO  55  J  =  1,  579 

AA  =  VFMXC ( I ,  J )  +  AA 

C  IF  (J  .EQ.  560)WRITE(*,*)I, 'SUM  560=' ,AA 

55  CONTINUE 

WRITE ( * ,  *)  'ROW',  I,  1  SUM  = ' ,  AA 

56  CONTINUE 

C  THESE  STATEMENTS  WRITE  THE  "G"  MATRIX  COEFICIENTS  TO  A  DISK  FOR 

C  USE  WITH  THE  TANK  PROGRAM 

WRITE (9)  VFMXC 

REWIND  9 

RETURN 

END 

SUBROUTINE  AREA1 

COMMON/ BL1 /  NI S , NI , NKS , NK , NA , NB , MI , MK , MKN , MKS , MKC , CL , DTHETA , 

&  DPHIN , DPHIS ,  DZ1 , DZ2 , DZ3 , Z1 , R , PI , ZCYL1 , ZCYL2 

COMMON/BL2/  PHI (33) ,THETA(2 :21 ,33) ,Z(2:21,33) ,AREA(10) , AREAC 

COMMON/BL3/  MREGN1 , MREGN2 , MREGN3 , IREGN1 , IREGN2 , IREGN3 ,KSM1 , KSM2 , 

&  KSM3 , KSM4 , KSM5 , KSM6 

C0MH0N/BL4/  VFMXR(579 , 579) , DELY(2 , 12) ,RF 

COMMON/ BL5/WVFNN (2:21,3:7,2:21,3:7) , WVFSS (2 : 21 , 26 :30 , 2 :21 , 26 :30 ) , 
&  WVFSN(2 :21, 26:30, 2:21, 3 :7),WVFNC(2s21, 3:7, 2:21, 8:25) , 

&  WVFCS(2:21, 8:25, 2:21, 26:30) ,  WVFSC( 2 :21 , 26 :30 , 2 :21 , 8 :25) , 

&  WVFNS (2 :21, 3:7, 2:21, 26: 30) , WVFCN(2 :21 ,8:25,2:21,3:7), 

&WVFCC(2 :21, 8:25, 2:21, 8:25) 

COMMON/BL7/  NJS ,NJ ,MJ ,HSZ , FPAND , HSANG(2 , 12) ,Y(2,12) ,HSY,DIAFP, 
&VFHNS (2,12,2:21,3:7) , VFHSS (2,12,2:21,26:30) , VFHC( 2 ,12,2:21,8:25) , 
&VFNSH (2:21,3:7,2,12) , VFSSH(2 : 21 , 26 : 30 , 2 , 12 ) , VFCH(2 :21 , 8 : 25 , 2 , 12) 

COMMON/BLK8/VFMXC(579 , 579) ,VFMXIN(579 , 579) , 

&  CONSRA,  NHSZ,AR(579) , EM (579) , IFIRE 

C  THIS  SUBROUTINE  ASSIGNS  AN  AREA  TO  A  CELL  BY  THE  CELL'S  NUMBER 

C  HS  =  19 

DO  55  I  =  1 , IREGN3 
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AR( I )  =  0.0 
55  CONTINUE 

DO  60  I  =  1  ,MKN 
DO  60  J  =  I,  IREGN1 

IF  (J  .LE.  MI*I  .AND.  AR(J)  .EQ.  0.  )  AR(J) 
60  CONTINUE 

DO  70  J  =  MREGN2 , IREGN2 
AR( J)  =  AREAC 
70  CONTINUE 

DO  80  J  =  HREGN3 , IREGN3 
DO  80  I  =  MKN+1 ,MKN+MKS 

IF( J  .LE.  (MI*(I-MKN)+IREGN2) .AND.AR(J) .EQ.O 
80  CONTINUE 

C  IT  SETS  THE  FIRE  AREA  TO  BE  A  RECTANGLE 
DY  =  R  /  HJ 
DO  85  K  =  561,  579 

AR(K)  =  DIAFP  *  DY 
85  CONTINUE 

RETURN 

END 


=  AREA ( I ) 


.  )AR( J )=AREA( I ) 
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APPENDIX  B 

FORTRAN  LISTING  OF  SPHERICAL/CYLINDRICAL  NUMERICAL 

MODEL 
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THREE-DIMENSIONAL  NUMERICAL  SIMULATION 
OF  A  FIRE  SPREAD  INSIDE  A  NAVY  STORAGE  TANK 

DEVELOPED  BY  : 

H.Q.  YANG  AND  K.T.  YANG 

DEPARTMENT  OF  AEROSPACE  &  MECHANICAL  ENGINEERING 
UNIVERSITY  OF  NOTRE  DAME 
NOTRE  DAME,  INDIANA,  46556 

DEC.  1986 
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Sc 

Sc 

Sc 

Sc 

Sc 

Sc 

Sc 

Sc 

Sc 

Sc 

Sc 

Sc 

Sc 


MM0N/R4/XC(93) ,YC(93) ,ZC(93) ,XS(93) ,YS(93) ,ZS(93) , 
DXXC ( 93 ) , DYYC (93 ) , DZZC ( 93 ) , DXXS  *  '  ~ 


COI- 

. ___  . , DXXS (93) ,DYYS(93) ,DZZS(93) 

COMMON/BLl/DX , DY , DZ , VOL , DTIME , VOLDT , THOT , TCOOL , PI , Q 
COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ , NJP1 , NJM1 , NK , NKP1 ,NKM1 

, NIP2 , NJP2 , NKP2 ,NA, NAP 1 , NAM1 , NB , NBP 1 , NBM1 , KRUN , NCHIP , NJRA , NWRP 
COMMON/ BL1 2/  NWRITE , NT APE , NTMAXO , NTREAL , TIME , SORSUM , ITER 
COMMON/ BL14/HC0EF , TINF , CNT , ABTURB , BTURB , VISL , VISMAX , QCORRT , PM1 , PM2 
C0MM0N/BL16/  CONST1 , CONST2 , CONST3 , C0NST4 , C0NST6 , NT , UO , H , UGRT , BUOY , 
CPO , PRT , CONDO , VI SO , RHOO , HR , TR , TA , DTEHP , TWRITE , TTAPE , TMAX . GC , RAIR 
COMMON/ BL20/ SIGH (22,16,32) ,SIG12(22,16,32) ,SIG2 2(22, 16,32) 
,SIG13(22.16,32) , SIG23 ( 22 , 16 , 32 ) , SIG33 (22 , 16 , 32 ) 
COMON/BL22/ICHFB  (10)  ,  NCHP1  (10),  JCHPB  (10),  NCHPJ  ( 1 0  )  ,  KCHPB  (10), 
NCHPK(10 ) ,TCHP ( 10 ) , CPS ( 10 ) , CONS ( 10 ) 

COMMON/BL31/  TOD ( 22 , 16 , 32 ) , ROD (22 , 16 , 32) ,POD( 22 , 16 , 32) 

, COD(22 ,16,32) ,UOD(22 , 16 ,32) . VOD (22 , 16 , 32) , WOD(22 , 16 , 32) 
COMMON/BL32/  T(22,16.32) ,R(22,16,32) ,P(22,16,32) 

,C(22, 16,32) ,U( 22, 16,32) ,V(22,16.32) ,W(22,16,32) 
COMMON/BL33/  TPD ( 22 , 16 , 32 ) , RPD(22 , 16 , 32) , PPD(22 , 16 , 32) 

,CPD(22,16,32) ,UPD(22.16,32) , VPD(22 . 16 , 32) , WPD(22 , 16 , 32) 
C0MM0N/BL34/  HEIGHT ( 22 , 16 . 32 ) , REQ ( 22 , 16 , 32) , 

SMP(22 ,16.32) , SMPP (22 ,16,32) , PP(22 , 16 , 32) , 

DU(22, 16,32) ,DV( 22, 16,32) ,DW(22 .16,32) 

COMMON/ BL36/AP( 22,16,32) ,AE(22,16,32) , AW (22, 16, 32) , AN(22 , 16 , 32) , 

AS (22, 16. 32) ,AF(22,16,32) ,AB (22 , 16.32) , 


SP(22,16,32) ,SU( 22, 16,32^ , RI (22, 16,32 J 
DN/BL37/  VIS(22,16,32) ,COND(22 , 16,32) ,r 


COMMON/BL37/  VIS (22 , 16 , 32 ) , COND (22 , 16 , 32 ) ,NOD(22 , 16 , 32 ) , RWALL (560 ) 
, CPM(22 ,16,32) ,HSZ(3 , 2) ,NHSZ( 22 , 16 , 32 ) , RESORM(93) 

COMMON/ BL3 8 /NTHCO ,CX(12) ,CY(12) ,CZ(12) ,NTH(12,3) ,TCOUP(12) 
C0MM0N/BL39/ ALEW , PCURVE , CONSRA , PCURM1 , PSOUTH , QCORR , PERROR 
DIMENSION  VFMXC( 579 , 579 ) ,T4WALL(579) 

DATA  N , ITLEFT , SORMAX , XT I ME , ITMAX/20 , 400000 ,0.40,0.0,4/ 


c 

kkk 

uo 

c 

kk  k 

RHOO 

c 

kkk 

H 

c 

kkk 

TA 

c 

kkk 

UNIT 

c 

kkk 

GC 

c 

kkk 

RAITR 

c 

kkk 

CONST1 

c 

kkk 

CONST3 

REFERENCE  VELOCITY  ( FT/SEC), 1  FT/SEC 
REFERENCE  AIR  DENSITY  (LBM/FT**3) 
REFERENCE  LENGTH  (FT) 

REFERENCE  TEMPERATURE  (R) 

INITIAL  TEMPERATURE  (0) 

GRAVITATIONAL  CONSTANT 
GAS  CONSTANT;  53.34 
RA*U0**2/GC 
INVERSE  OF  TA 


C  ***  C0NST4 
C  ***  C0NST6 
C  ***  COMSRA 
C  ***  NTRWR 
C  ***  NTRWA 
C  ***  HCONV 


REFERENCE  LENGTH  (CM) 

REFERENCE  VELOCITY  (CM/S) 

TA**3/ (RA*CP*U0*H*H ) 

MTREAL/NWRITE*NWRITE 

NTREAL/NWALT*NWALT 

HEAT  TRANSFER  COEFFICIENT  ON  THE  AMBIENT  (BTU/H. FT**2K) 


C  ***  RAD , H : 
C  CYL  : 
C  ***  NI  : 
C  NJ  : 
C  NK  : 
C  NA  : 
C  MB  : 
C  ***  HSZ( 1 , 

c 

c  HSZ ( 2 , 
c 

c  HSZ(3 , 
C 

c 

C  ***  ICHPB ( 
C  JCHPB ( 
C  KCHPB ( 
C  ***  NCHPI ( 
C  NCHP J ( 
C  NCHPKi 

p  ********** 


RADIUS  OF  THE  CYLINDRICAL  AND  SPHERICAL  SECTIONS 
LENGTH  OF  THE  CYLINDRICAL  SECTION  OF  THE  TANK 
TOTAL  NUMBER  CELLS  IN  THETA-DIRECTION 

R-DIRECTICN 
Z  AND  PHI -DIRECTIONS 

FIRST  NUMBER  Z-DIRECTION,  ALONG  THE  CYLINDER  AXIS 
LAST  NUMBER  Z-DIRECTION,  ALONG  THE  CYLINDER  AXIS 
1 ) ,HSZ( 1 , 2 )  FIRST  AND  LAST  COORDIANTE  OF  HEAT  SOURCE 

IN  X-DIRECTION  (IN  DIMENSIONLESS  FORM) 

1) ,HSZ(2,2)  FIRST  AND  LAST  COORDIANTE  OF  HEAT  SOURCE 

IN  Y-DIRECTION  (IN  DIMENSIONLESS  FORM) 

1) ,HSZ(3 , 2)  FIRST  AND  LAST  COORDIANTE  OF  HEAT  SOURCE 

IN  Z-DIRECTION  (IN  DIMENSIONLESS  FORM) 


STARTING  NODAL  NUMBER  FOR  SOLID  IN  THETA-DIRECTION 

R-DIRECTION 
Z  OR  PHI-DIRECTION 

NUMBER  OF  NODALS  FOR  SOLID  IN  THETA-DIRECTION 

R-DIRECTION 


>  :  Z, PHI-DIRECTION 

(:**************  ************************************** 


c  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 

C  INPUT  DATA  & 

C  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
CALL  INPUT 

C  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
C  GENERATE  GRID  SYSTEM  & 

C  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
CALL  GRID 

C  ############################################################### 
C  ***  READ  VIEW  FACTOR  INVERSE  MATRIX  # 

999  READ  (11,END=998)  VFMXC 
GOTO  999 
998  CONTINUE 
REWIND  11 
CLOSE  (11) 

C  INITIALIZE  THE  WHOLE  FIELD  & 

C  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
CALL  INIT 

C  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
C  START  CALCULATION  & 

C  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 

NT=0 

NTIM=0 

300  CONTINUE 
NT=NT+1 

C  ***  NTMAXO  HAS  THE  MEANING  AS  "NTREAL"  WHEN  IT  IS  READ  FROM 
C  DISK  OR  TAPE. 

IF (XTIME  .GT.  TMAX)  GO  TO  303 
NTREAL=NT+NTMAXO 
TIME=TIHE+DTIME 
XTIME=TIHE*H/UO 


i 


v  ■■ 
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C  CALCULATE  THE  TRANSIENT  HEAT  INPUT  & 

C  NOTE  IF  1  IN  PARENTHESIS,  THE  BURN  RATE  IS  CALCULATED  & 

C  BY  THE  PRESSURE  CURVE.  IF  EQUAL  TO  TWO,  THE  SURN  RATE  & 

C  CURVE  IS  EITHER  GIVEN  OR  ESTIMATED  & 

CALL  CALQ ( 2 ) 

C  ***  START  CALCULATION 

ITER=0 

JTERM=0 

JJTERM=0 

C  DEFINE  THE  UPDATED  TPD(I,J,K),  CPD( I , J ,K) , RPD( I , J , K) 

C  UPD(I , J ,K)  AND  VPD(I , J,K)  FOR  THE  USE  OF  CALVIS  AND  SU(I,J,K) 

DO  43  K=1 , NKP1 
DO  48  J=1 , NJPI 
DO  48  1=1 , NIP1 
TPD(I,J,K  =T(I, J,K)  ' 

CPD  I,J,K  =C  I, J,K 
RPD(I,J,K  =R  I, J,K 
UPD(I,J,K  =U  I,J,K 
VPD ( I , J ,  K)=V ( I , J , K ) 

WPD ( I , J , K)=W( I , J , K ) 

48  CONTINUE 
29  CONTINUE 

JTERH=JTERM+1 
301  CONTINUE 


C  CALCULATE  THE  RADIATION  HEAT  FLUX  AT  EVERY  NRAD  TIME  STEPS  & 
NRAD  =  2 

IF  (MOD (NT, NRAD) .NE.O)  GOTO  4000 
CALL  RADHT ( T4WALL , VFMXC ) 

4000  CONTINUE 

C  CALCULATE  THE  TEMPERATURE  # 

C################################################################ 
CALL  CALT 

C  CALCULATE  THE  SMOKE  CONCENTRATION  & 

C  CALL  CALC 


DO  2000  J=1 ,NJP1 
DO  2000  1=1 ,NIP1 
DO  2000  K=1,NKP1 

IF (T( I , J , K) .LT.TCOOL)  T(I , J,K)=TCOOL 
2000  CONTINUE 

r9-2-  9- 9- 9- 3- 9- 9- 9- 9- 9- 9- 5- 9- 9- 9- 5- 9- 9- 3- 3- 9- 9- 9- 9- 5- 9- 9- 9- 3- 9- 9- 9- 2- 9- 9- 9- 5- 0-5- 9- 5- 9- 9- 9- S- 9- 9- 5- 5- 9-9- 5- 9.9. 9-9- 9-9. 9- 9-9- 9-9 
o^^'S'6'0'0^^  o-o-o-o-o'o'o'S-o'o'6-o'o-o'6-5'5-o'o'S'5'3'o'&'6-o-6'S'o'o'o-o'6'5-S^'S'S-S'3'&-6'6-6'S'6'6'S'5'S-S'5-5'&'t 

C  GLOBLE  FRESSURE  CORRECTION  FOR  ENCLOSED  TANK  AIR  3 

^^5  loo'o^S'o  "6  6 '6  'o'o  c  0  6  o'o'o'o  q'g'o  o'o'a  o  3'3'c  c  o'o'o  o'o'o’q'o'o'o'o'o’o'o'o'o'o  o'o'o'o'o'o'o'o'o^ 

CALL  GLOBE 


C@@@@@@@@@(§@@(§l(3(3(§O(3(3O@(9(?0000000f30@000@00000(3@00(3@@@@@00ra0000@@@@@ 
C  CALCULATE  THE  TURBULENT  VISCOSITY  AND  CONDUCTIVITY  @ 

C@@000@0@0@00OfB0OO000000@f9@000000000000000000000000000000000@0000 
CALL  CALVIS  . "  ~  ' 


Q'k'k'k'k-k-k-^'k-k-k-k-k-k-k-k^^iK-k-k^^^'k'k'k'k'k'k'kir'k^ifM^'k'k'k'k'k'k^C'k-k-^'k-k'k-k'kir'k^^^-k-k-k-k-k-^-k-k 

C  CALCULATE  THE  DENSITY  * 

DO  100  J=1 , NJPI 
DO  100  1=1 , NIP1 
DO  100  K=1 , NKP1 
IF  (NOD(I.J.K).EQ.l)  GOTO  100 
AAAA=BUOYrrUGRT*HEIGHT{  I  ,  J  ,  K ) 

R( I , J , K)=(UGRT*P ( I , J ,K)+ ( 1 . /EXP ( AAAA) ) ) /T( I , J , K) 


160 


100  CONTINUE 

C$$$$$$$S$$$$$$$$$S$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
C  CORRECT  CONDUCTIVITY  OF  THE  SOLID  $ 

CS$$$$$S$$$$S$S$SSS3$$$$$$$$$$$$$$SS$$5$$$$$$$$$$$$$$S$$$S$$$S$$$ 
IF  (NCHIP.EQ.O)  GOTO  410 
CALL  SOLCON 
410  CONTINUE 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
C  START  PRESSURE  CORRECTION  ITERATIVE  LOOP,  IT  IS  THE  MAJOR  % 
C  PART  OF  THE  ERROR  CONTROL  ROUTINE  % 

'-'Ou'O'O'O'Oo'O'O'O'O'O'O'O'O'O'O'O'O'O'O'Oa'O'O'O'O'O'Ou'O'O  0  Oo  O  OM'O^O  o'o'o'o’o'oo  O  O  0*0  o'o  oooooooo 

ITER=ITER+1 

C  CALCULATE 'THE  VELOSITY  U,V,AND  W  '  @ 

CALL  CALU 
CC  CALL  STRESS 

Q  "kifk  *xA*A*x*AA*AA* 

CALL  CALV 
CC  CALL  STRESS 

Q  kkk  -kkkk-kkkk-kk-kkkk 

CALL  CALW 
CC  CALL  STRESS 

Q  kkk  kkkk-kkkkkkkkkk 

c$$$$$$$$$s$$$$$$$$$$$$$$ss$$$$$$$$$$$s$$$$$$$$$$$$$$$$$$$$$$$$$$ 

C  CALCULATE  THE  PRESSURE  AND  STRESS  & 

C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

CALL  CALP 
CALL  STRESS 


'o'o'o'o'o'o'o’^'o'o'o'o'o'o'o'o'o'o'o'o'o'^'o'o'o'o^o'o'o'o'o'o'o'o'o'o'o'o 

IF  SOURCE  TERM  IS  LARGER  THAN  10.0,  STOP  PROGRAM 


x  i.  A  klM  i  X  X  A  Uli  «  X  W  ■  W  .  *-(  X  x-'  A  i  iWUlViH*  O 

roo  00.00,0,00,0.0  o,  00000,0  oo  0,000.0,0.0,0.0  00.0,000.0,0  o  0,0.  do.  ao, 0.0. 0.0, 0.0.0  0.0, 0,0, 0,0.0  0.0, 0,0. 0.0, 

'S'S'o'S-S'S'S'S'3'S'S'S'o^  'o'S'S'S'o'3'3^'3'0^^  "3  "6  "6  'S'S'S^lS  o^1>  oli'S  S'o'S'6'6  oooc/ooooooo 

IF  (RESORM(ITER) .GT.10.0)  GOTO  2020 

IF(RESORM( ITER)  .LE.  SORMAX)  GO  TO  49 
IF( ITER  .EQ.  1)  GO  TO  302 
ITERM1=ITER-1 

IF(RESORM(ITER)  .LE.  RESORM ( ITERM1 ) )  GO  TO  302 
GO  TO  304 

302  IF( JTERM  .GE.  2)  GO  TO  37 
SOURCE=RESORM( ITER) 

GO  TO  39 

37  IF (RESORM (ITER)  .LE.  SOURCE)  GO  TO  38 
GO  TO  304 

38  SOURCE=RESORM( ITER) 

39  CONTINUE 

WRITE (6, 95)  ITER,RESORM(ITER) ,SORSUM 
95  FORMAT ( 53X , 1 ITER= 1 ,I2,2X, 'SOURCE=' ,F9.6,2X, 'SORMUP=' ,F9.6) 
DO  23  K=1,NKP1 
DO  23  J=1 ,NJP1 
DO  23  1=1 , NIP1 
TPD(I,J,K  =T(I,J,K) 

CPD(I, J,K)=C  I, J,K) 

RPD (I,J,K)=R(I,J,K) 

UPD ( I , J , K)=U( I , J , K) 

VPD(I,J,K  =V  I, J,K 
WPD  I,J,K  =W(I,J,K 
PPD  ( I , J , K)=P ( I ,J,K) 

23  CONTINUE 
JJTERM=0 

IF( ITER  .EQ.  ITMAX)  GO  TO  49 
IF (JTERM  .EQ.  2)  GO  TO  35 
IF' ITER  .EQ.  4)  GO  TO  29 
35  CONTINUE 

IF (JTERM  .EQ.  3)  GO  TO  58 


v>>.yv. 


nnnnnn  n  noon  non 


IF ( ITER  .EQ.  7)  GO  TO  29 
58  CONTINUE 
JJTER11=0 
GO  TO  301 
304  CONTINUE 

J JTERM=JJTERM+1 

IF (J JTERM  .EQ.  1)  WRITE (6 ,95)  ITER ,RESORM( ITER ) ,SORSUM 
IF (JTERM  .EQ.  1)  GO  TO  41 

IF (JTERM  .EQ.  2  .AND.  J JTERM  .EQ.  1  .AND.  ITER  .NE.  5)  GO  TO  41 
GO  TO  82 
41  CONTINUE 

DO  40  K=1,NKP1 
DO  40  J=1 ,NJP1 
DO  40  1  =  1 , NIP  1 


R 

I,J,K 

=RPD ( I , J , K) 

U( 

I ,  J  ,  K 

=UPD  I,J,K) 

V! 

I ,  J  ,K 

=VPD  I, J,K) 

W< 

I,  J,K 

=WPD (I , J , K) 

P 

I.J.K 

=PPD ( I , J , K) 

40  CONTINUE 

IF (ITER  .EQ.  ITMAX)  GO  TO  49 
GO  TO  29 
82  CONTINUE 

DO  43  K=1 , NKP1 
DO  43  J=1 , NJP1 


DC 

)  43  1  = 

=1,NIP1 

T  ( 

;i,j,k; 

=TPD ( I , J ,K) 

C< 

I,J,K 

=CFD ( I , J , K) 

R( 

I ,  J,K 

=RPD(I , J,K) 

u 

I,J,K 

=UPD(I, J,K 

v< 

I,J,K 

=VPD( I , J,K) 

W( 

I,J,K 

=WPD(I,J,K) 

p( 

I ,  J ,K 

=PPD ( I , J , K) 

43  CONTINUE 

IF( ITER  .EQ.  ITMAX)  GO  TO  49 

IF( (JTERM  .EQ.  3  .AND.  ITER  .NE.  8)  .OR.  J JTERM  .EQ.  2)  GO  TO  49 
GO  TO  301  '  " 

49  CONTINUE 

ITERT=ITERT+ITER 

C################################################################ 

GO  TO  THE  PRESSURE  TRACKING  SUBROUTINE  .PRINT  OUT  # 

RESULTS  IF  AT  THE  RIGHT  TIME  INTERVAL  # 


CALL  PTRACK 

IF  (MOD(NTREAL.NWRP) .EQ.O)  CALL  OUT(l) 


3-9-9-3-5-5-S-9-9-5- 

r\'r\'n 


FIND  TEMPERATURES  AT  THERMOCOUPLE  POINTS  AND 

TF  AT  THF  RIGHT  TTMF  TNTFRVAT. 


vwwwvvwwvv' 

rwu  ut\c.o  m  inLnnui-ijurLL  cvirno  PRINT  OUT  -5 

IF  AT  THE  RIGHT  TIME  INTERVAL  % 

m%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%3 


CALL  TCP 

IF  ( MOD (NTREAL.NWRP) .EQ.O)  CALL  OUT(2) 

2422  CONTINUE 

IF  (MOD(NTREAL.NWRITE) .EQ.O)  CALL  OUT(3) 

IF(NTREAL  .EQ.  NTREAL/NWRITE*NWRITE)  CALL  OUT(3) 

505  CONTINUE 

IF ( (XTIME+DTIME*H/UO)  .GE.  TMAX)  GO  TO  277 

***  ******************************* ************************* A** 

CALL  TLEFT ( IT) 

123  FORMAT ( 1  ITLEFT  =  ’,110) 

IT0=IT 

IF( IT. LT. ITLEFT)  CALL  0UT(3) 

***  ***************>t*********x* ************* ******************* 


C  ***  RESET  THE  OLD  TIME  VALUES  TOD,  ROD,  UOD,  VOD  AND  POD. 

DO  305  K=1 , NKP1 
DO  305  J=1 ,NJP1 
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DO  305  1=1 ,NIP1 
TOD (I , J , K)=T( I , J ,K) 

COD  I,J,K)=C  I,J,K 
ROD ( I ,  J ,  K ) =R ( I ,  J ,  K ) 

UOD ( I , J , K )=U( I , J , K) 

V0D(I, J,K)=V(l, J,K 
WOD ( I , J , K ) =W ( I , J , K ) 

POD ( I , J , K)=P( I , J , K) 

305  CONTINUE 

c  i!  I !  I  I  1 1  I !! II  j ! I II II  I ! II I  1 1  I  II  M I  I  I ! I II I  I  1 1 !  I  i  II 1 1  I  I  II !  I  I  !  I  1 1 1 

C  THIS  WRITING  IS  FOR  PLOTTINGS 

c|  I !  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 !  II 1 1 1 1 1 1 1 1 !  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  i  1 1 1 1 1 1 1 

IF (NTREAL  .NE.  NTREAL/NTAPE*NTAPE ) GOTO  522 
CCC  IWRITE=10 
CCC  WRITE ( IWRITE ) 

CCC  &  TIME , NTREAL ,T,R,U,V,W,P, CPM , COHD , VIS , QRNET , ITERT , QCORRT , PHI , PM2 , 
CCC  &  H, TA,U0, CONDO, VISO , RHOO, NI , N J , NK , NIP1 , NJP1 ,NKP1, MINI, NJM1,NKM1, 
CCC  &  XC,YC,ZC.XS,YS,ZS,DXXC,DYYC,DZZC,DXXS,DYYS,DZZS 
CCC  WRITE (6 ,  *)  'THE  TIME  WHEN  THE  DATA  WAS  STORED  ON  TAPE  IS:', 

CCC  &  XTIME 

Q  AAA  AAAAAAAAAAAAAAAAAAAAAA  A  A  A  A*  A  AAAA  A  A  A  A*  A  A  A*  A  A  AAA  A  AAA  A  A  A*  AAA  AAA 

522  CONTINUE 

Q  kkk  kkkkkkkkkkkkkkkkkkkkkkkkkk  kkkkkkkkkk  kkkkkkkkkkkkkkkkkkkkkkk 

C  CALL  TLEFT(IT) 

C  IF(IT.LT.ITLEFT)  GO  TO  166 

Q  kkk  kk^kkkkkkkkkkkkpckkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

C  TIMREM  IS  USED  TO  CALCULATE  THE  CPU  TIME  REMAINING  AT  NPS 
IF  (TIMREM(0. ) .LE.80. )  GOTO  166 

GO  TO  300 
303  CONTINUE 
277  CONTINUE 

WRITE (6 , 1111 ) 

1111  FORMAT (2X, '******  THE  MAXIMUM  TIME  HAS  BEEN  REACHED  ******* ,18) 

GO  TO  172 

£  AAA  AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
166  IF (NTREAL  .NE.  NTREAL/NTAPE*NTAPE )  WRITE(9) 

Sc  TIME , NTREAL , T , R , U , V , W , P , CPM , COND , VI S , QRNET , ITERT , QCORRT , PM1 , PM2 , 
Sc  H , TA , UO , CONDO , VISO , RHOO , NI , NJ , NK , NIP1 , N JP 1 , NKP 1 , NIM1 , NJM1 , NKM1 , 

Sc  XC ,  YC ,  ZC ,  XS  ,  YS  ,  ZS  ,  DXXC ,  DYYC ,  DZZC ,  DXXS  ,  DYYS  ,  DZZS 
REWIND  9 

£  kkk  kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

GOTO  172 
2020  CONTINUE 

WRITE  (6,*)  1  RESIDUAL  MASS  IS  LARGER  THAN  10.0,  PROGRAM  STOPS' 
172  CONTINUE 
STOP 
END 


SUBROUTINE  INPUT 

kkkkkkkkkkkkkkkkkkkkkkkkkk kkkkkkkkkkkkkkkkkkkkkkk kkkkkkkkkkkkkkkk kkkk 

THIS  SUBROUTINE  SETS  UP  REQUIRED  VALUES  TO  BEGIN  THE  PROGRAM.  * 
VARIABLES  ARE:  * 

KRUN  =  WHEN  EQUAL  TO  ONE, READ  FROM  THE  * 

RESTART  DISK,  ELSE  FROM  THE  JCL  * 

NCHIP  =  NUMBER  OF  SOLID  PIECES  51 

NWRP  =  NUMBER  OF  TIME  STEPS  TO  WRITE  ON  THE  * 

PAPER  * 

NTHCO  =  NUMBER  OF  THERMOCOUPLES  TO  PRINT  OUT  * 

TMAX  =  MAXIMUM  TIME  ALLOWED  (REAL)  51 

TWRITE  =  SECONDS  IN  REAL  TIME  TO  PRINT  THE  * 

P,V,T  FIELDS  ON  PAPER  51 

TTAPE  =  TIME  INTERVAL  TO  WRITE  ON  THE  TAPE  * 


■ k 
k 
k 
: k 
k 
k 
k 
k 
k 
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DTI  ME 
HS2 

ICHPB 
JCHPB 
KCHPB 
MCHPI 
NCHPJ 
NCHPK 
CX , CY , CZ 


TIME  STEP  (DIMENSIONLESS) 

HEAT  SOURCE  SIZE,  USED  TO  CALCULATE 
THE  VOLUME  OF  THE  FIRE  CELL 
FIRST  SOLID  NODE  IN  THETA  DIRECTION 
FIRST  SOLID  NODE  IN  R  DIRECTION 
FIRST  SOLID  NODE  IN  PHI  DIRECTION 
NUMBER  OF  NODES  IN  THETA  DIRECTION 
NUMBER  OF  NODES  IN  R  DIRECTION 
NUMBER  OF  NODES  IN  PHI  DIRECTION 
THERMOCOUPLE  POSITIONS  IN  THETA 


kkkkkkkkkkkkkkkkkkkkkxkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk kkk kkkkkkk 


.  R ,  PHI 

•kk'Kkkk 
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C0MM0N/R4/XC ( 93 ) ,YC(93) ,ZC(93) , XS ( 93 ) , YS (93) ,ZS(93) , 

&  DXXC(93) ,DYYC(93) ,DZZC(93) ,DXXS(93) ,DYYS(93) ,DZZS(93) 

C0MM0N/BL1 / DX , DY , DZ , VOL , DTI ME , VOLDT , THOT , TCOOL , PI , Q 
C0MM0N/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK,NKP1 ,NKM1 
&  , NIP2 , NJP2 , NKP  2 , NA , NAP 1 , NAM1 , MB , NBP 1 , NBM1 , KRUN , NCHIP , NJRA , NWRP 

COMMON /BL12/  NWRITE , NTAPE , NTHAXO , MTREAL , TIME , SORSUM , ITER 
COMMON/ BL14/HCOEF , TIMF , CNT , ABTURB , BTURB , VISL , VISMAX , QCORRT , PM1 , PM2 
COMMON/BL16/  CONST1 , COMST2 , C0MST3 , C0MST4 , C0NST6 ,NT , UO ,H , UGRT , BUOY , 
&  CPO , PRT , CONDO , VI S  0 , RHOO , HR , TR , TA , DTEMP , TWRITE , TTAPE , TMAX . GC , RAIR 
COMMON/SL20/SIG11(22,16,32) , SIG12 (22 , 16 ,32) , SIG22 (22 , 16 , 32) 

&  , SIG13(22 .16,32) ,SIG23 (22 ,16,32), SIG33 (22,16,32) 

COMMON/BL22/ ICHPB  (10)  ,NCHPI(xO,  ,  JCHPB (10)  , NCHPJ (10)  , KCHPB (10)  , 

&  NCHPK (10 ) , TCHP ( 10 ) , CPS ( 10 ) , CONS ( 10 ) 

C0MM0N/BL31/  TOD (22 , 16 , 32 ) , ROD (22 , 16 , 32 ) , P0D(22 , 16 , 32 ) 

&  ,COD(22 ,16,32) , UOD ( 22 , 16 , 32 ) , VOD (22 , 16 , 32) ,WOD(22,16,32) 

COMMON/ BL3 2/  T(22 , 16 , 32) , R(22 , 16 , 32) ,P(22, 16,32) 

&  , C(22 ,16,32) , U(22 ,16,32) ,V(22,16,32) ,W(22,16,32) 

COMMON/BL33/  TPD(22 , lb , 32) , RPD(22 ,16,32) ,PPD(22 , 16 ,32) 

&  , CPD(22 ,16,32) , UPD(22 .16,32) , VPD(22 . 16 , 32) , WPD(22 , 16 , 32) 

C0MM0N/BL34/  HEIGHT ( 22 , 16 , 32 ) , REQ ( 22 , 16 , 32) , 

&  SMP(22 ,16.32) , SMPP (22 ,16,32) , PP(22,16,32) , 

&  DU( 22 , 16 , 32 ) , DV(22 , 16 , 32) ,DW(22 , 16 , 32 ) 

COMMON/BL36/AP (22 ,16,32) ,AE ( 22 , 16 , 32) ,AW(22 , 16 ,32) ,AN(22,16,32) , 

&  AS (22, 16. 32) , AF(22 , 16 , 32) ,AB (22 , 16,32) , 

&  SP(22,16,32) ,SU(22, 16,32  ,RI (22, 16,32 J 

COMMON/BL37/  VIS (22 , 16 , 32) , COND(22,16,32) , NOD (22, 16, 32) ,RWALL(560) 
&  , CPM(22 ,16,32) ,HSZ(3 ,2) ,NHSZ(22 , lb , 32 ) ,RESORM(93 ) 

C0MM0N/BL38/NTHC0 , CX( 12 ) ,CY(12^ , CZ(12) ,NTH(12,3) ,TC0UP(12) 


#1.  READ  IN  DATA  TO  INDICATE  EITHER  KRUN=0  OR  1 
READ ( 5  ,  *  )  KRUN, NCHIP, NWRP, NTHCO 

#2.  READ  IN  DATA  SET  1  -  6  DATA 

READ ( 5 , * )  TMAX , TWRITE , TTAPE , DTI ME 

#3.  READ  IN  DATA  FOR  HEAT  SOURCE 

READ  (5,*)  HSZ(1 ,1) ,HSZ(1 ,2) ,HSZ (2 , 1 ) ,HSZ(2 , 2) ,HSZ(3 , 1 ) ,HSZ(3 , 2 ) 
WRITE (6, 20)  HSZ( 1 , 1 ) , HSZ( 1 , 2 ) , H5Z (2 , 1 ) , HSZ(2 , 2) ,HSZ(3 , 1 ) ,HSZ(3 , 2) 
20  FORMAT  (/,20X,'HEAT  SOURCE  LOCATION  IS  IN  THE  VOLUME  (NON-DIME1, 

&  1 NSIONAL  WITH  RESPECT  TO  RADIUS)', 

&  / , 5X, 1  FROM  1 , F8 . 4 , '  TO  ',F8.4,'  IN  X-DIRECTION’ , 

&  / , 5X , ' FROM  1 , F8 . 4 , '  TO  ',F8.4,'  IN  Y-DIRECTION' , 

&  / , 5X, 1  FROM  1 , F8 .4 , 1  TO  ',F8.4,'  IN  Z-DIRECTION' ,/) 


C  #4.  READ  IN  DECK  DATA 

IF  (NCHIP. EQ.O)  GOTO  16 
PRINT  * 

PRINT  THE  REGION  BOUNDED  BY  SOLID' 

DO  19  N=l, NCHIP 

READ  ( 5 , *)  ICHPB(N) ,NCHPI(N) , JCHPB (N) ,NCHPJ(N) ,KCHPB(N) , 

&  NCHPK (N) ,TCHP(N) ,CPS(N) ,CONS(N) 

WRITE  (6,10)  N , ICHPB (N) , NCHPI (N) , JCHPB (N ) , NCHPJ (N) , KCHPB (N) , 

&  NCHPK (N) ,TCHP(N) , CPS(N) ,CONS(N) 

10  FORMAT  (2X,'N=  ',12,'  ICHPB=  ',12,'  NCHPI=  ',12,  '  JCHPB=  ',12, 
&1  NCHPJ=  ',12,  '  KCHPB=  ',12,'  NCHPK=  ',12,  '  TCHP=  ',F8.5, 

&'  CPS=  ' , F8 . 5 ,  '  CONS  =  ' , F12 . 5 , / ) 

19  CONTINUE 


k» . 
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16  CONTINUE 

f5.  INPUT  THERMOCOUPLE  COORDINATE 

IN  TERMS  OF  X ( THETA ) ,  Y (RADIUS ), Z (PHI ) 

PRINT  * 

PRINT  *,  1  THERMOCOUPLE  POSITION  IN  TERMS  OF  THETA,  R,  PHI 
PRINT  * 

DO  110  1=1 , NTHCO 

READ  (5,*)CX(I),CY(I),CZ(I) 

WRITE  (6,*)  I,  CX(I) ,CY(I) ,CZ(I) 

110  CONTINUE 

RETURN 


SUBROUTINE  INIT 

•kiK-k^TK'k’k’k-k-kTr-k-kTc-k-k^-k-k-k’k'k'k’k'k’k-k-k-k-^^’k'k’k-k  *********  *************************** 

*  THIS  SUBROUTINE  INITIALIZES  THE  FIELD  AND  CONSTANTS  WITH  RESPECT  * 

*  TO  INITIAL  START  OR  RESTARTING  CAPABILITY.  * 

*  VARIABLES  ARE  :  * 


TIME 

UO 

H 

TR 

TA 

VISO 

VISL 

VISMAX 

HR 

CONDO 

CO 

NJRA 

HCONV  = 

HCOEF  = 

CONST1  = 

RHOO 

GC  = 

BUOY 

UGRT 

CPO  = 

NWRITE/ 

NTAPE 

MATRICES  OF  THE  FORM 
OD 


WHERE  THE  PARAMETERS  ARE 
u ,  v ,  w 

T,P ,  C 

DU,DV,DZ 

PP 

SU 

SP 

AP 

AE , AW , AN 
AS ,AF,AB 
SMP  = 

SMPP  = 

CPM  = 

VIS 

COND 

NHSZ 


DIMENSIONLESS  TIME  * 
CHARACTERISTIC  VELOCITY  (1  FT/SEC)  * 
CHARACTERISTIC  LENGTH  (RADIUS (9 . 6FT) )  * 
TEMP  IN  DEGREES  KELVIN  * 
TEMP  IN  DEGREES  RANKINE  * 
REFERENCE  VISCOSITY  (NONDIM)  * 
MINIMUM  VISCOSITY  (NONDIM)  * 
MAXIMUM  VISCOSITY  (NONDIM)  * 
RADIUS  IN  CM  * 
REFERENCE  CONDUCTIVITY  * 
INITIAL  SMOKE  CONCENTRATION  * 
POINT  OF  RADIATION  IN  J  DIRECTION  * 
LOCATED  ON  THE  INNER  SOLID  BOUNDARY  * 
HEAT  TRANSFER  COEFFICIENT  * 
DIMENSIONLESS  HEAT  TRANSFER  COEF  * 
USED  TO  NONDIMENS IONALIZE  PRESSURE  * 
REFERENCE  DENSITY  * 
GRAVITY  CONSTANT  * 
BUOYANCY  FORCE  CONSTANT  * 
PERFECT  GAS  LAW  NONDIMENSIONAL  CONSTANT* 
REFERENCE  SPECIFIC  HEAT  * 
NONDIMENSIONAL  FORMS  OF  TWRITE  AND  * 
TTAPE  * 

* 

DIMENSIONLESS  PARAMETER  AT  OLD  TIME  * 
DIMENSIONLESS  PARAMETER  * 
UPDATED  DIMENSIONLESS  PARAMETER  * 

* 

VELOCITY  IN  THETA,  R  ,  PHI  DIRECTION  * 
TEMP,  PRESSURE,  AND  SMOKE  CONCENTRATION* 

USED  IN  PRESSURE  CORRECTION  SUBROUTINE  * 
CORRECTED  PRESSURE  (P1)  * 
SOURCE  TERM  * 
TERM  AT  P  NODAL  POINT  FOR  BOUNDARY  * 
CONDITIONS  * 
COEFICIENT  AT  NODAL  POINT  * 
COEFICIENTS  AT  PTS  EAST , WEST , NORTH ,  * 
SOUTH,  FRONT,  AND  BACK  * 
RESIDUAL  MASS  SUMMATION  OF  NODAL  POINT  * 
LENGTH  SCALE  FOR  TURBULENCE  * 
MEAN  SPECIFIC  HEAT  * 
VISCOSITY  * 
CONDUCTIVITY  MATRIX  * 
WHEN  THIS  VALUE  EQUALS  ZERO,  THERE  IS  * 
NO  HEAT  SOURCE  LOCATED  AT  THE  NODE  * 


v  v.v.v.v.v.’ 


_B,_E 

REQ 

NIP1 

XC,YC,ZC 

DXXC , DYYC 
DZZC 

XS , YS , ZS 

DXXS , DYYS 
DZZS 


IF  EQUAL  TO  ZERO,  LIQUID  * 
IF  EQUAL  TO  ONE,  SOLID  * 
BEGINNING  AND  ENDING  NODAL  POINT  FOR  * 
THE  SOLID  IN  I , J , K  * 
DENSITY  AT  EQUILIBRIUM  * 
NODAL  POINT  IN  I  PLUS  1  (OTHERS  SIMILAR) 
THETA, R, PHI  LOCATION  OF  NODAL  POINT  OF  * 
A  CENTER  CELL  * 
LENGTH  AROUND  THE  CENTER  CELL  * 

* 

THETA, R, PHI  LOCATION  OF  NODAL  POINT  OF  * 
A  STAGGERED  CELL  * 
LENGTH  AROUND  THE  STAGGERED  CELL  * 


,16,32) 


*  CX.CY.CZ  =  LOCATION  OF  THERMOCOUPLE  IN  THETA, R. PHI* 

kk  kkkkkkkkkkkkxkkkkkkkkkkkkkkkkk  kkkkkkkkkkkkkkkkkkkkk  kkkkkkkkkkkk'K7r-kkkkk 

C0MM0N/R4/XC ( 93 ) , YC (93 ) , ZC ( 93 ) , XS ( 93 ) , YS ( 93 ) , ZS ( 93 ) , 

&  DXXC ( 93 ) , DYYC (93) , DZZC ( 93 ) , DXXS ( 93 ) , DYYS (93) ,DZZS(93) 

COMMON/ BL1/DX , DY , DZ , VOL , DTI ME , VOLDT , THOT , TCOOL , PI ,  Q 
COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ , N JPI , NJM1 , NK , NKP1 , NKM1 
&  , NIP2 , NJP2 , NKP2 , NA , NAP 1 , NAM1 , MB , NBP1 , NBM1 , KRUN , NCHIP , NJRA , NWRP 

COMMON/BL12/  NWRITE ,NTAPE , NTMAXO , NTREAL , TIME , SORSUM , ITER 
COMMON/ BL1 4 /HCOEF , TINF , CNT , ABTURB , BTURB , VTSL , VISMAX , OCORRT , PM1 , FM2 
CCMMON/BL16/  CONST1 , CONST 2 , CONST3 , C0NST4 , C0NST6 , NT , UO , H , UGRT , BUOY , 
&  CPO , PRT , CONDO , VISO , RHOO , HR , TR , TA , DTEMP , TWRITE , TTAPE , TMAX , GC , RAIR 
COM1-ION/BL20/SIG11  (22, 16,32)  ,SIG12(22, 16,32)  ,  SIG22  (22 , 16 , 32) 

&  ,SIG13(22.16,32) , SIG23 ( 22 , 16 , 32 ) , SIG33 ( 22 , 16 , 32 ) 

COMMON/BL22/ICHPB ( 10) ,NCHPI ( 10 ) , JCHPB ( 10 ) , NCHP J ( 10 ) , KCHPB ( 10 ) , 

&  NCHPK(IO) ,TCHP(10) ,CPS(10) , CONS (10) 

COMMON/BL31/  TOD ( 22 , 16 , 32 ) , ROD( 22 , 16 , 32 ) , POD ( 22 , 16 , 32 ) 

&  , CQD(22 ,16,32) , UOD( 22 , 16 , 32 ) . VOD ( 22 , 16 , 32) , WOD(22 , 16 , 32 ) 

COMMON/BL32/  T ( 22 , 16 , 32) , R( 22 , 16 , 32 ) , P ( 22 , 16 , 32 ) 

&  , C(22, 16,32) ,U(22, 16,32) ,V(22, 16.32) ,W(22, 16, 32) 

COMMON/BL33/  TPD ( 22 , 16 , 32 ) , RPD(22 , 16 , 32) , PPD (22 , 16 , 32 ) 

&  , CPD(22,16,32) , UPD (22 ,16,32) , VPD ( 22 , 16 , 32 ) , WPD (22 , 16 , 32 ) 

COMMON/BL34/  HEIGHT( 22 , 16 , 32 ) , REQ ( 22 , 16 , 32) , 

&  SMP  (22,16,32)  ,  SMPP  (22 ,16,32)  ,  PP  ( 22 , 16 , 32) , 

&  DU(22 , 16 , 32 ) ,DV (22. 16,32) ,DW(22,lb,32) 

COMMON/ BL36/AP( 22 ,16,32) ,AE( 22, 16,32) ,AW(22, 16,32) ,AN( 22, 16,32) , 

&  AS (22, 16, 32) ,AF(22, 16,32 ) ,AB (22, 16,32 ) , 

&  SP(22,16,32) ,SU(22, 16,32) ,RI (22 , 16 , 32) 

COMMON/BL37/  VIS ( 22 , 16 , 32) , COND( 22 , 16 , 32) ,NOD( 22 , 16 , 32 ) ,RWALL(560) 
&  , CPM( 22 ,16,32) ,HSZ( 3 , 2 ) .NHSZ (22,16,32) , RESORM( 9 J ) 

COMMON/BL38/NTHCO ,CX(12) , CY( 12 ) ,CZ(12), NTH( 12,3) , TCOUP (12) 

COMMON/ BL39/ALEW , PCURVE , CONSRA , PCURM1 , PSOUTH , QCORR , PERROR 
DATA  GRAV/32 .17/ 

C  ***  INTRODUCE  GIVEN  PARAMETERS 

TIME=0 . 

TR=TA/ 1 . 8 

H=9  #  0 

VIS0=VIS0/U0/H 
VISL=VISQ 
VISMAX=400 .  *VISL 
HR=H*30 . 48 
CONDO=VISO/PRT 
PI=4 . *ATAN ( 1 . ) 

ALEW  =1.0 
NJRA=15 

C  THE  HEAT  TRANSFER  COEFFICIENT  IS  IN  BTU/HR/FT**2/F 
HCONV=5 . 0 

HC0EF=HC0NV*4 . / ( 3600 . *CPO*RHOO*UO ) 

CO  =  0.0 

CONST1=RHOO*UO*UO/ (GC*14 . 696*144 . ) 

CONST3=l . 8/TA 
C0NST4=H*30 . 48 
CONST6=U0*30 . 48 
NTMAX0=0 
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BUOY=GRAV*H/ ( UO  *U0 ) 

UGRT=UO*UO/ (GC*RAIR*TA) 

TCOOL=l . 0 

COMSRA=TA*TA*TA/ ( RHO0*CP0*U0*3600 . *H*H ) *1 . 714E-9 

WRITE (6,200)  TR , CONDO , VISO , CPO , HR , DTIME , HCONV 
200  FORMAT (5X,  'THE  REFREMCE  TEMPERATURE  AMD  THERMAL  PROPERTIES',/, 
&  / ,  5X,  'T  =  1 , F10 .4 ,  1 K,  CONDO  =  '  ,E12.6, 

St  /  ,  5X ,  1  VISO  =  '  ,  E12 . 6  ,  1  CPO  =  \E12.6, 

Sc  /,5X,  'RADIUS  =  '  ,  E12 . 6  ,  '  CM', 

Sc  /  ,  5X,  'DTIME  =  '  ,E12.6, 

Sc  /  ,  5X,  'HCONV  =  1  ,E12 .6  ,/) 

NWRITE=TWRITE*UO/DTIME/H 
NTAPE=TTAPE  *UQ / DTIME / H 
***  PRINT  OUT  INPUT  INFORMATION 

WRITE ( 6 , 61 )  ( STAR ,1=1,90), KRUN , TMAX , TWRITE , TTAPE , NWRP 
61  FORMAT (///, 90A1 ,/, 5X , 1 KRUN  =',I2,/,5X, 

Sc  'TMAX  =  '  ,  F8 . 3  ,  '  SECONDS  1  , /5X,  1  TWRITE  =',F8.3, 

Sc  '  SECONDS' ,/,5X, 'TTAPE  =',F8.3,'  SECONDS', 

Sc  / ,  5X,  '  NUMBER  INTERVALS  OF  WRITING  ON  PAPER  ',  15,/) 

***  INITIALIZE  VARIABLE  FIELD 

DO  220  J=1 ,MJP1 
DO  220  1=1 , NIP1 
DO  220  K=1 , NKP1 
ROD(I , J,K)=1 . 

R( I , J , K)=l . 

RPD ( I , J , K)=l . 

UOD ( I , J , K)=0 . 

U(I,  J,K)=0. 

UPD ( I , J ,K)=0 . 

VOD(I , J.K)=0 . 

V( I , J , K)=0 . 

VPD ( I , J , K)=0 . 

W( I , J , K)=0 . 

WPD ( I , J , K)=0 . 

WOD ( I , J , K )=0 . 

POD(I,J,K)=0. 

P(I  J,K)=0. 

PPD( I , J , K)=0 . 

DU( I , J , K)=0 . 

DV(I,J,K)=0. 

DW(I,J,K)=0. 

SU( I , J , K) =0 . 

SP(I, J,K)=0. 

PP(I,J,K  =0. 

AP(I , J,K)=0. 

AW(I, J,K)=0. 

AE(I,J,K)=0. 

AN(I,J,K  =0. 

AS ( I , J , K) =0 . 

AF ( I , J , K ) =0 . 

AB(I,J,K)=0. 

SMP ( I , J , K)=0 . 

SMPP ( I , J , K) =0  . 

VIS(I , J,K)=VISL 
COND ( I , J , K)=CONDO 
CPM( I , J , K )=1 . OEO 
TOD (I , J , K ) =1 . OEO 
T ( I , J , K ) =TOD ( I , J , K ) 

TPD ( I , J , K)=TOD( I , J , K) 

COD (I , J,K)=CO 
C(I, J,K)=COD(I,J,K) 

CPD ( I , J , K)=COD ( I , J , K) 

NHSZ ( I , J , K) =0 
NOD (I , J , K)=0 
220  CONTINUE 
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C  ***  DETERMINE  THE  POSITION  OF  HEAT  SOURCE 

DO  300  1=2, MI 
DO  300  J=2 ,NJ 

C  CHANGE  TO  RECTANGULAR  COORDINATES 
XX=YC( J)*COS(XC(I) ) 

YY=YC ( J ) *SIN(XC ( I ; ) 

C  CHECK  TO  SEE  IF  IN  HS  CONTROL  VOLUME,  IF  SO  SET  NHSZ=1 
IF  (XX.LT .HSZ(1 ,1) . OR . XX . GT .HSZ (1 , 2) )  GOTO  310 
IF  (YY.LT.HSZ(2,1) .OR.YY.GT.HSZ  2,2))  GOTO  310 
NHSZ( I , J , 16 )=1 
NHSZ ( I , J , 17 )=1 

315  FORMAT  (2X, 10 (4X, 14 , 2X, 14) ) 

GOTO  300 
310  CONTINUE 
300  CONTINUE 


C  ***  DEFINE  THERMAL  PROPERTIES  OF  DECK  AND  SOLID 

IF  (NCHIP.EQ.O)  GOTO  410 
DO  40 2  N=1 .NCHIP 
Ib=iCHPB(N ) 

IE=I3+NCHPI(N)-1 
JB=JCHPB (N) 

JE=JB+NCHPJ (N) -1 
KB=KCHPB(N) 

KE=KB+NCHPK (N ) - 1 
DO  405  I=IB , IE-1 
DO  405  J=JB , JE- 1 
DO  405  K=KB,KE-1 
COND ( I , J , K ) =CONDO*CONS (N) 

CPM(I , J,K)=CPO*CPS(N) 

NOD ( I , J , K)=l 
405  CONTINUE 
402  CONTINUE 
410  CONTINUE 


C  ***  FOR  CONTINUING  RUN,  READ  DATA  FROM  TAPE  OR  DISK 

I F ( KRUN  ,EQ.  1)  GO  TO  9997 
GO  TO  15 

9997  READ ( 3 , END=9998 ) 

&  TIME ,NTMAX0 , TOD , ROD , UOD , VOD , WOD , POD , CPM , CCND , VIS , QRNET , ITERT , QCOR 
&RT , PHI , PM2 , XX , XX , XX , XX , XX , XX , NI , N J , NK , NIP1 , NJP1 , NKP1 , NIM1 , NJM1 
&  , NKM1 , XC , YC , ZC , XS , YS , ZS , DXXC , DYYC , DZZC , DXXS , DYYS , DZZS 
GO  TO  9997 

9998  CONTINUE 

REWIND  8 
CLOSE  (8) 

WRITE ( 6 , *)NTMAX0 
15  CONTINUE 


DEFINE  HEIGHT  OF  NODE  POINTS  AND  COMPUTE  HYDROSTATIC 
EQUILIBRIUM  DENSITY  REQ(I,J,K) 


13 

C 


DO  13  K=1 ,NKP1 
DO  13  1=1 ,NIP1 
DO  13  J=1 .NJP1 

DHY=YC( J)*SIN(XC(I) )*SIN(ZC(K)) 
HEIGHT ( I , J , K)=DHY 
CONTINUE 


DO  229  J=1,NJP1 
DO  229  1=1 ,NIP1 
DO  229  K=1 . NKP1 
AAAA= - BUO Y*  UGRT*HE I GHT ( I , J , K ) 


168 


REQ(I,J,K)=EXP(AAAA) 

IFCKRUN  .NE.  0)  GO  TO  229 

RPD ( I , J , K ) =REQ ( I , J , K ) /TPD ( I , J , K ) 

ROD ( I ,  J . K )=RPD ( I , J . K) 

R(I,J,K)=RPD(I,J,K) 

229  CONTINUE 

***  INITIALIZE  U(V,T,R,P  FIELD 

DO  210  K= 1 , NKP 1 
DO  210  J=1 ,NJP1 
DO  210  1=1 , NIP1 
T(I,J,K)=TOD(I,J,K) 

C(I, J,K  =COD(I, J,K 
R(I,J,K)=ROD(I, J,K) 

U( I ,  J , K)=UOD ( I , J , K) 

V  I,J,K  =VOD  I,J,K 
W  ( I ,  J ,  K ) =WOD ( I ,  J ,  K ) 

P(I , J,K)=POD(I, J,K) 

210  CONTINUE 

***  FOLLOWING  IS  FOR  DETERMINING  THE  THERMOCOUPLE  POSITIONS 

DO  5000  N=1 , NTHCO 
DO  5001  1=1 ,NIP1 

IF  (XC(I; .LT.CX(N) .AND.XC(I+1) .GE.CX(N) )  GOTO  5002 

5001  CONTINUE 

5002  II=I 

DO  5003  J=1 ,NJP1 

IF  (YC(J) .LT.CY(N) .AND . YC( J+l ) . GE • CY(N) )  GOTO  5004 

5003  CONTINUE 

5004  JJ=J 

DO  5005  K=1 ,NKP1 

IF  (ZC(K) .LT.CZ(N) .AND.ZC(K+1) .GE.CZ(N))  GOTO  5006 

5005  CONTINUE 

5006  KK=K 

NTH ( N , 1 ) = I I 
NTH(N,2)=JJ 
NTH(N,3)=KK 
5000  CONTINUE 

RETURN 


SUBROUTINE  CALVIS 

C  ***  *************************************************************** 

*  THIS  SUBROUTINE  CALCULATES  THE  TURBULENT  VISCOSITY  AND  UPDATES* 

*  THE  VISCOSITY  MATRIX  * 

********************************************************************* 

COMMON/R4/XC(93) , YC(93 ) . ZC( 93 ) , XS ( 93 ) , YS (93) ,ZS(93) , 

&  DXXC(93) ,DYYC(93) ,DZZC(93) ,DXXS(93) ,DYYS(93) ,DZZS(93) 

COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK,NKP1 , NKM1 
&  ( NIP2 , NJP2 , NKP 2 , NA , NAP 1 , NAM1 , NB , NBP1 , NBM1 , KRUN , NCHIP , NJRA , mRP 

COMMON/ BL1 4 /HCOEF , TINF , CNT , ABTURB , BTURB , VISL , VISMAX , QCORRT , PHI , PM2 
COMMOM/BL16/  CONST1 , CONST2 , CONST3 , C0NST4 , CONST6 , NT , UO , H , UGRT , BUOY , 
&  CPO , PRT , CONDO , VI SO , RHOO , HR , TR , TA , DTEMP , TWRITE . TTAPE , TMAX , GC , RAIR 
COMMON/BL32/  T( 22 , 16 , 32 ) , R(22 , 16 , 32) , P(22 , 16 , 32) 

&  ,0(22,16,32) ,U(22, 16,32) ,V( 22, 16,32 } ,W(22, 16, 32) 

COMMON/BL34/  HEIGHT ( 22 , 16 . 32 ) , REQ ( 22 , 16 , 32 ) , 

&  SMP (22,16,32), SMPP (22 , 16, 32), PP (22, 16, 32) , 

&  DU (22, 16, 32), DV (22. 16,32), DW (22, 16,32) 

COMMON/BL36/AP(22 ,16,32) , AE ( 22 , 16,32) , AW( 22 , 16 , 32) , AN(22 , 16 , 32 ) , 

&  AS (22, 16. 32) ,AF( 22, 16,32 ) ,AB( 22 ,16,32 ) , 

&  SP( 22, 16,32) ,SU(22,16,32) ,RI (22, 16,32 
C0MM0N/BL37/  VIS ( 22 , 16 , 32 ) , COND( 22 , 16 , 32) ,MOD( 22 , 16 , 32) ,RWALL(560) 
&  , CPM(22 ,16,32) ,HSZ(3 , 2) ,NHSZ(22 ,16,32), RESORM(93) 


'**  CALCULATE  LOCAL  SHEAR  AND  VISCOSITY  VIS(I,J,K) 

'**  SPECIFY  LOCAL  TURBULENT  LENGTH  SCALES  SMPP(I,J,K) 

DO  611  K=2 ,NK 

KP2=K+2 

KP1=K+1 

KM1=K-1 

KM2=K-2 

DO  611  J=2 ,NJ 

JP2=J+2 

JP1=J+1 

JM1=J-1 

JM2=J-2 

DO  611  1=2, NI 

IP2=I+2 

IP1=I+1 

1111=1-1 

IM2=I-2 

IF  (I.EQ.2)  IM2=NIM1 

IF  (I.EQ.NI)  IP2=3 

IF  (NOD (I , J,K) .EQ.l)  GOTO  611 

CENTRAL  LENGTH  OF  THE  SCALE  CONTROL  VOLUME 

DXP1=XL( IP1 , J  ,*.,0,0) 

DXI  =XL (I  , J , K , 0 , 0 
DXM1=XL(IM1,J,K,0,0) 

DYP1=YL(I , JP1 ,K, 0 , 0 ) 

DYJ  =YL ( I , J  ,K,0 ,0) 

DYM1=YL(I, JM1,K,0,0) 

D2P1=ZL(I , J ,KP1 ,0,0) 

DZK  =ZL(I,J,K  ,0,0) 

DZ111=ZL  ( I ,  J ,  KM1 ,0,0) 

IF  (J.EQ.2)  DYS=DYS/2. 

IF  (K.EQ.2)  DZB=DZB/2 . 

IF  (J.NE.NJ)  GOTO  101 

JP2=JP1 

DYN=DYN/2 . 

101  IF  (K.NE.NK)  GOTO  102 

KP2=KP1 
DZF=DZF/2 . 

102  CONTINUE 


CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME  FOR  T 

DXE  =XL( IP1 , J , K, 0 , 1 ) 

DXW  =XL(I  , J ,K, 0 , 1 ) 

DYN  =YL(I , JP1 ,K,0 , 2) 

DYS  =YL(I , J  ,K,0 ,2) 

DZF  =ZL(I , J, KP1 ,0,3) 

DZB  =ZL(I,J,K  ,0,3) 

CACULATE  DV/DX,D2V/DX2 ,DU/DX, D2U/DX2 ,DW/DX  AND  D2W/DX2 


DZF  = 
DZB  = 


DUDX=(U( IP1,J,K)-U(I.J,K)) /DXI 
DUDXW=0 .5*(U(IP1,J,X)-U(IM1,J,K) )/DXW 
DUDXE=0.5*(U(IP2,J,K)-U(I  , J,K))/DXE 

D2UDX2=(DUDXE-DUDXW) /DXI 

DVDXW=0.5*(V(I,JP1,K)+V(I,J,K)-V(IM1, JP1 , K) -V( IM1 , J,K))/DXW 
DVDXE=0.5*(V(IP1,JP1 ,K)+V(IP1, J,K)-V(I, JP1 ,K)-V(I , J,K)  /DXE 
DVDX=0 . 5*(DVDXE+DVDXW) 

D2VDX2=  (DVDXE-DVDXW) /DXI 

DWDXW=0 . 5* (W( I , J ,KP1 )+W( I , J , K) -W( IM1 , J , KP1 ) -W( IM1 , J , K) ) /DXW 
DWDXE=0.5*(W(IP1,J,KP1)+W(IP1,J,K)-W(I, J,KP1)-W(I,J,K))/DXE 
DWDX=0 . 5*  ( DWDXE +DWDXW ) 

D2WDX2=  (DWDXE-DWDXW) /DXI 


602  CONTINUE 

C  ***  CALCULATE  DU/DY,D2U/DY2 ,DV/DY,D2V/DY2 ,DW/DY  AND  D2W/DY2 

DVDY=(V( I.JPI,K)-V(I.J,K))/DYJ 
DVDYS=0.5*(V(I, JP1,K)-V(I, JH1,K))/DYS 
DVDYN=0.5*(V(I, JP2,K)-V(I,J  ,K))/DYN 
D2VDY2= ( DVDYN- DVDYS ) / DY J 

DUDYS=0 .5*(U{IP1,J,K)+U(I,J,K)-U(IP1, JM1 ,K)-U(I , JM1 ,K) ) /DYS 
DUDYN=0.5*(U(IP1,JP1,K)+U(I, JP1 ,K) -U( IP1 , J,K)-U(I, J,K))/DYN 
DUDY=0.5*(DUDYN+DUDYS) 

D2UDY2=  (DUDYN-DUDYS )/DYJ 

DWDYS=0 . 5* (W( I , J , KP1 )+W( I , J , K) -W( I , JM1 , KP1 ) -W( I , JM1 , K) ) /DYS 
DWDYN=0.5*(W(I, JP1,KP1)+W(I, JP1,K)-W(I, J,KP1)-W(I, J,K))/DYN 
DWDY=0 . 5* ( DWDYN+DWDYS ) 

D2WDY2=  (DWDYN-DWDYS ) /DYJ 

606  CONTINUE 

C  ***  CALCULATE  DU/D2 , D2U/DZ2 , DV/DZ , D27/DZ2 , DW/DZ  AND  D2W/DZ2 

DWDZ=(W(I , J,KP1)-W(I, J(K))/DZK 
DWDZF=0 . 5*(W( I , J ,KP2 j -W(I , J , K  ))/DZF 
DWDZB=0.5*(W(I, J,KP1)-W(I, J,KM1))/DZB 
D2WDZ2=(DWDZF-DWDZB)/DZK 

DVDZB=0 . 5*(V(I , JP1 ,K)+V(I , J,K)-V(I , JP1 ,KM1) -V(I , J ,KM1 ) )/DZB 
DVDZF=0 . 5*(V( I , JP1 , KP1 )+V( I , J , KP1 ) -V( I , JP1 , K) -V( I , J , K) ) /DZF 
DVDZ=0 . 5*(DVDZF+DVDZB) 

D2VDZ2=  ( DVDZF - DVDZB ) / DZK 

DUDZB=0.5*(U(IP1,J,K)+U(I,J,K)-U(IP1, J,KM1)-W(I, J,KM1))/DZB 
DUDZF=0 . 5*(U( IP1 , J , KP1 )+U ( I , J , KP1 ) -U( IP1 , J , K) -U( I , J ,K) )  /  DZF 
DUDZ=0 .  5*(DUDZF+DUDZB) 

D2UDZ2=  (DUDZF-DUDZB)/DZK  OlO^OO 

DRDX=( (R( IP1 , J , K) -REQ( IP1 , J,K) )- (R(IM1 , J , K) -REQ ( IM1 , J , K) ) ) / 

&  (DXE+DXW) 

DRDY=( (R( I , JP1 , K) -REQ( I ,JP1,K))-(R(I, JM1 , K) -REQ ( I , JM1 , K) ) ) / 

&  (DYN+DYS) 

DRDZ= ((R(I,J,KP1) -REQ{ I ,J,KP1))_(R(I,J,KM1) -REQ ( I ,  J , KM1 ) ) ) / 

&  (DZF+DZB) 

DRDGA=SIN(ZC(K) )*SIN(XC{I ) )*DRDY+COS(XC(I) )*DRDX 
&  +COS(ZC(K))*SIN<XC(I))*DRDZ 

C  ***  CALCULATE  RICHARDSON  NUMBER 

STRAIN=DUDY**2+DVDX**2+DWDX**2+DVDZ**2+DWDY**2+DUDZ**2 

DD02  =  SQRT(DUDY*DUDY+DUDX*DUDX+DUDZ*DUDZ+DVDY*DVDY+DVDX*DVDX+ 

&  DVDZ*DVDZ+DWDX*DWDX+DWDY*DWDY+DWDZ*DWDZ ) 

IF(DD02.EQ.O. )G0  TO  600 

C  ***  CALCULATE  TURBULENT  LENGTH  SCALE  SHPP(I,J) 

SMP123=SQRT(U(I,J,K)*U(I,J,K)+V(I,J,K)*V(I,J,K)+W(I,J,K)*W(I,J,K)) 

&  /DD02 

SMPP12=DD02  / SORT (D2UDX2*D2UDX2+D2UDY2*D2UDY2 
&  +D2UDZ2*D2UDZ2+D2VDX2*D2VDX2+D2VDY2*D2VDY2+D2VDZ2*D2VDZ2+ 

&  D2WDZ2*D2WDZ2+D2WDX2*D2WDX2+D2WDY2*D2WDY2 ) 
SMPP(I,J,K)=CNT*(SMP123+SMPP12)*.5 
RI(I, J,K)=-BUOY*DRDGA/(R(I , J,K)*STRAIN) 

ABRIPR=ABTURB+RI ( I , J , K ) /PRT 
IFfABRIPR  .LT.  0.)  GO  TO  600 
IF( ABRIPR  .EQ.  0.)  GO  TO  613 
GO  TO  610 

600  VIS(I, J,K)=VISL 
GO  TO  611 
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613  VIS(I, J,K)=VISMAX 
GO  TO  611 

610  VIS ( I , J , K)=VISL+R( I , J ,K)*SMPP( I , J , K)*SMPP(I , J ,K) *SQRT( STRAIN) / 

&  ( BTURB*ABRIPR ) 

IF(VIS (I , J , K)  .GT.  VISMAX)  VIS ( I , J, K)=VISMAX 

611  CONTINUE 

DO  110  1=1 ,NIP1 
DO  110  J=1,NJP1 
VIS ( I , J ,NKP1 )=VIS ( I , J ,NK) 

VIS(l,J,l  )=VIS(I , J,2  ) 

110  CONTINUE 

DO  120  J=1 ,NJP1 
DO  120  K=1 ,NKP1 
VIS  ( NIP  1 ,  J  ,K)=VIS(2 ,  J,K) 

VIS(1  ,J,K)=VIS(NI,J,K) 

120  CONTINUE 

DO  130  K=1,NKP1 
DO  130  1=1 , NIP1 
VIS ( I ,NJP1 , K ) =VIS ( I , NJ , K) 

VIS(I,1  ,K)=VIS(I ,2  ,K) 

130  CONTINUE 

DO  140  1=1 ,NIP1 
DO  140  J=1 , NJP1 
DO  140  K=1 ,NKP1 
IF  (MOD( I , J , K) . EQ . 1 )  GOTO  140 
COND(I , J,K)=VIS(I , J,K)/PRT 
140  CONTINUE 

RETURN 


SUBROUTINE  CALT 

Q  ***  *************************************************************** 

C0MM0N/R4/XC ( 93 ) ,YC(93) ,ZC(93) ,XS(93) ,YS(93) ,ZS(93) , 

&  DXXC(93) ,DYYC(93) ,DZZC(93) ,DXXS(93) ,DYYS(93) ,DZZS(93) 

COMMON/ BL 1 / DX , DY , DZ , VOL , DT IME , VOLDT , THOT ,TCOOL,PI,Q 
COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK,NKP1 ,NKM1 
&  , NIP2 , N JP2 , NKP2 , NA , NAP 1 , NAM1 , NB , NBP 1 , NBM1 , KRUN , NCHIP , NJRA , NWRP 

COMMON/ BL1 2/  NWRITE ,NTAPE ,NTMAX0 ,NTREAL , TIME , SORSUM , ITER 
C0MM0N/BL14/HC0EF , TINF , CNT , ABTURB , BTURB , VISL , VISMAX , QCORRT , PM1 , PM2 
COMMON/ BL1 6/  CONST1 , CONST2 , CONST3 , C0NST4 , CONST6 , NT , UO , H , UGRT , BUOY , 
&  CPO , PRT , CONDO , VISO . RHOO , HR , TR , TA , DTEMP , TWRITE , TTAPE , TMAX , GC , RAIR 
COMMON/BL22/ICHPB(10) ,NCHPI(10) , JCHPB(IO) ,NCHPJ(10) ,KCHPB(10) , 

&  NCHPK(10 ; ,TCHP( 10 ) , CPS ( 10) , CONS (10) 

COMMON/BL31/  TOD(22 , 16 , 32 ) , ROD(22 , 16 , 32 ) , POD(22 , 16 , 32) 

&  , COD(22 , 16 , 32) ,UOD(22. 16,32 ) ,VOD[22, 16,32) , WOD(22 , 16 , 32) 

COMMON/BL32/  T ( 22 , 16 , 32) , R( 22 , 16 , 32) ,P(22,16,32) 

&  ,C( 22, 16,32) ,U(22, 16,32) ,V(22 ,16.32) ,w[22,16,32) 


C0MM0N/BL33/  TPD(22 ,16,32), RPD(22 ,16,32^, PPD( 22, 16,32) 

&  , CPD(22 ,16,32) , UPD (22 .16,32) , VPD(22 . 16 , 32) ,WPD(22 , 16 , 32) 

C0MM0N/BL34/  HEIGHT( 22 , 16 . 32) , REO( 22 , 16 , 32) , 

&  SMP (22 ,16,32) , SMPP ( 22 , 16 , 32 ) , PP(22 , 16 , 32) , 

&  DU (22, 16, 32), DV (22. 16, 32), DW (22. 16, 32) 

COMMON/BL36/AP( 22, 16,32) , AE ( 22 , 16 , 32) , AW( 22 , 16 , 32 ) , AN(22 , 16 , 32) , 
&  AS (22, 16, 32) ,AF(22, 16,32) ,AB(22,16 ,32), 

&  SP (22, 16, 32) , SU(22 , 16 , 32 ) , RI (22, 16,32) 

COMMON/ BL37 /VI S ( 22,16,32) , COND (22,16,32) ,NOD(22 , 16 , 32) , RWALL( 560 
&  , CPM(22 ,16,32) ,HSZ(3 , 2 ) ,NH5Z(22 ,16,32), RESORM(93 ) 


C  ***  CALCULATE  COEFFICIENTS 

DO  100  K=2 , NK 
KP2=K+2 
KP1=K+1 
KM1=K-1 


KM2=K-2 

DO  100  J=2 ,NJ 

JP2=J+2 

JP1=J+1 

JH1= J- 1 

JM2=J-2 

DO  100  1=2, MI 

IP2=I+2 

IP1=I+1 

IH1=I-1 

IM2=I-2 

IF  (I.EQ.2)  IM2=NIM1 
IF  (I.EQ.NI)  IP2=3 

C  CENTRAL  LENGTH  OF  THE  TEMPERTURE  CONTROL  VOLUME 


DXP1=XL( IP1 , J, K, 0 , 0) 

DXI  =XL ( I  ,  J  ,  K ,  0 , 0 ) 
DXM1=XL ( IM1 ,  J  ,  K ,  0 , 0  ) 

DYP1=YL ( I , JP1 , K , 0 , 0 ) 

DYJ  =YL ( I , J  ,  K ,  0 , 0  ) 
DYM1=YL ( I , JM1 , K , 0 , 0 ) 

DZP1=ZL (I,J,KP1,0,0) 

DZK  =ZL ( I ,  J ,  K  ,0,0 
DZM1=ZL ( I ,  J , KM1 ,0,0) 

C  ***  SURFACE  LENGTH  OF  THE 

DXN=XL ( I , JP1 , K , 0 , 2 ) 
DXS=XL ( I , J  ,K,0,2) 
DXF=XL ( I , J , KP1 , 0 , 3 ) 
DXB=XL ( I , J , K  ,0,3) 

DYF=YL (I,J,KP1,0,3) 
DYB=YL ( I , J , K  ,0,3 
DYE=YL( IP1 , J , K , 0 , 1 j 
DYW=YL ( I  , J , K , 0 , 1 ) 

DZE=ZL ( IP1 , J , K , 0 , 1 ) 
DZW=ZL( I  , J , K , 0 , 1 ) 
DZN=ZL( I , JP1 , K , 0 , 2 ) 
DZS=ZL(I , J  ,K,0 , 2) 

C  ***  CENTRAL  LENGTH  OF  THE 

DXEE=XL ( IP2 , J , K , 0 , 1 ) 

DXE  =XL( IP1 , J , K , 0 , 1 ) 

DXW  =XL  I  , J ,K , 0 , 1 ) 
DXWW=XL ( INI , J , K , 0 , 1 ) 

DYNN=YL ( I , JP2 , K , 0 , 2 ) 

DYN  =YL( I , JP1 , K, 0 , 2) 

DYS  =YL  I,J  ,K,0,2 
DYSS=YL ( I , JM1 , K , 0 , 2 ) 

DZFF=ZL ( I , J , KP2 , 0 , 3 ) 

DZF  =ZL(I, J,KP1,0,3 
DZB  =ZL  I,J,K  ,0,3) 
DZBB=ZL ( I , J , KM1 , 0 , 3 ) 

C  ***  DEFINE  THE  AREA  OF  THE 

DXYF=DXF*DYF 

DXYB=DXB*DYB 

DYZE=DYE*DZE 

DYZW=DYW*DZW 

DZXN=DZN*DXN 

DZXS=DZS*DXS 

VOL=DXI*DYJ*DZK 

VOLDT=VOL/DTIME 

ZXOYN=DZXN/DYN 

ZXOYS=DZXS/DYS 

XYOZF=DXYF/DZF 

XYOZB=DXYB/DZB 


CONTROL  VOLUME 


STAGGERED  CONTROL  VOLUME  FOR  T 


CONTROL  VOLUME 
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V  •>  V 


V  V 


YZOXE=DYZE / DXE 
YZOXW=DYZW/DXW 


GN=< 

R 

I.J.K 

*DYP1+R 

I , JP1 ( K 

*dyj; 

/ 

'DYP1+DYJ) 

GS  = 

R 

I.J.K 

*DYM1+R 

I , JM1 , K 

*DYJ 

/ 

DYM1+DYJ) 

GE= 

R 

I ,  J.K 

*DXP1+R 

IPl.J.K 

*DXI 

/ 

.  DXP1+DXI ) 

GW= 

R 

I.J.K 

*DXM1+R 

IMl.J.K 

*DXI 

/ 

DXM1+DXI) 

GF= 

R 

I.J.K 

*DZP1+R 

I.J.KPl 

*DZK 

/ 

DZP1+DZK ) 

GB= 

,R 

[i.j.k] 

*DZM1+R 

I.J.KMl 

*dzk; 

/ 

[DZM1+DZK; 

CN=GN*V ( I , JP 1 ( K ) *DZXN 
CS=GS*V(I,J  ,K)*DZXS 
CE=GE*U( IP1 ,  J ,  K ) *DYZE 
CW=GW*U(I  , J , K) *DYZW 
CF=GF*W  I , J , KP 1 ) *DXYF 
CB=GB*W(I , J,K  ) *DXYB 


C0MDN=1 . / 
C0NDS=1 . / 
C0NDE=1 . / 
C0NDW=1 . / 
C0MDF=1 . / 
C0NDB=1 . / 


C0NDN1 
COND SI 
CONDE1 
CONDW1 
CONDF1 
CONDB1 


1 . / COND( I , J , K 
1 . / COMD ( I ,  J ,  K 
1 . / COND { I , J , K 
1 . /COND ( I , J , K 
1 . / COND ( I , J , K 
1 . /COND (I ,  J ,  K 

ZXOYN*CONDN 

ZXOYS*CONDS 

YZOXE*CONDE 

YZOXW*CONDW 

XYOZF*CONDF 

XYOZB*CONDB 


i*DYJ+l, 
i  *DYJ+1 , 
l*DXI+l , 
1  *DXI+1 . 
i*DZK+l. 
I  *DZK+1 , 


/CONDI 

/CONDI 

/CONDI 

/CONDI 

/CONDI 

/CONDI 


i,jpi,k)*dypi; 

I , JM1 ,K)*DYM1 
IP1, J,K)*DXP1 
IM1 , J , K ) *DXI11 
I , J,KP1)*DZP1 
I , J , KM1 ) *DZM1 ; 


/ (DYP1+DYJ 
/ ( DYM1+DYJ 
/ (DXP1+DXI 
/  DXM1+DXI 
/ ( DZP1+DZK 
/ (DZM1+DZK 


CEP=i 
CEM=i 
CWP=i 
CWM=  i 


ABS(CE)+CE 

ABS(CE)-CE 

ABS(CW)+CW 

ABS(CW)-CW 


I  *DXE/DXI/ 16 . 
i*DXE/DXPl/16. 
i*DXW/DXMl/16. 
i*DXW/DXI/16. 


CNP=I 
CNM=I 
CSP=I 
CSM=  I 


ABS(CN)+CN 
ABS ( CN) -CN 
ABS ( CS )+CS 
ABS (CS ) -CS 


l*DYN/DYJ/16 . 
i*DYN/DYPl/16. 
i*DYS/DYNl/16. 
i*DYS/DYJ/16. 


CFP=' 

CFM=i 

CBP=i 

CBM=i 


ABS(CF)+CF 
ABS ( CF ) -CF 
ABS (CB)+CB 
ABS (CB )  -  CB 


l*DZF/DZK/16. 

i*DZF/DZPl/16. 

I*DZB/DZM1/16. 

i*DZB/DZK/16. 


5*CE+CEP+CEM* 
5*CW+CWM+CWP* 
5*CN+CNP+CNM* 
5*CS+CSM+CSP* 
5*CF+CFP+CFM* 
5*CB+CBM+CBP* 

801  AEE=-CEM*DXE/DXEE 

AEER=AEE*TPD(IP2 , J ,K)*CPM( IP2 , J , K) 

802  CONTINUE 


AE(I , J,K)=- 
AW ( I , J , K ) = 
AN(I,J,K)=- 
AS { I , J , K)= 
AF(I,J,K)=- 
AB ( I , J , K)= 


1 . +DXE/DXEE 
1 . +DXW/DXWW 
1 . +DYN/DYNN 
1 . +DYS/DYSS 
1 .  +DZF/DZFF 
l.+DZB/DZBB 


l+CWM*DXW/DXE 
l+CEP*DXE/DXW 
>+CSM*DYS/DYN 
l+CNP*DYN/DYS 
l  +CBM*DZB/DZF 
>+CFP*DZF/DZB 


803  AWW=-CWP*DXW/DXWW 

AWWR=AWW*TPD ( IM2 , J , K; *CPM (IM2, J,K) 

804  CONTINUE 


IF  ( J.LT.NJ)  GOTO  805 
ANN=0 . 

ANNR=0 . 

GOTO  806 

805  ANN=-CNM*DYN/DYNN 

ANNR=ANN*TPD ( I , JP  2 , K ) *CPM ( I , JP  2 , K ) 

806  CONTINUE 


IF  (J.GT.2)  GOTO  807 
ASS=0 . 

ASSR=0 . 

GOTO  808 

807  ASS=-CS?*DYS/DYSS 

ASSR=ASS*TPD ( I , JM2 , K) *CPM ( I , JM2 , K) 
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.S 


808  CONTINUE 

IF  (K.LT.NK)  GOTO  809 
AFF=0 . 

AFFR=0 . 

GOTO  810 

809  AFF=-CFM*DZF/DZFF 

AFFR=AFFXTPD (I , J ,KP2) *CPM ( I , J , KP2 ) 
310  CONTINUE 

IF  (K.GT.2)  GOTO  811 
ABB=0 . 

ABBR=0 . 

GOTO  812 

811  ABB=-CBP*DZB/DZBB 

ABBR=ABBXTPD ( I , J , KM2 ) *CPM ( I , J , KM2 ) 

812  CONTINUE 


C  ###}*#################################################### 

C  ######################################################## 

C  ***  MODIFICATION  FOR  DECK  BOUNDARIES 

900  CONTINUE 

IF  (N0D(IM1,J,K) .EQ.O)  GOTO  901 
AWW=0 .0  ' 

AWWR=0 . 0 

901  CONTINUE 

IF  (NOD (IP1,J,K) .EQ.O)  GOTO  902 
AEE=0 . 0 
AEER=0 .0 

902  CONTINUE 

IF  (NOD (I , JM1 ,K) .EQ.O)  GOTO  903 
ASS=0 . 0 
ASSR=0 . 0 

903  CONTINUE 

IF  (NOD (I , JP1 ,K) .EQ.O)  GOTO  904 
ANN=0 . 0 
ANNR=0 . 0 

904  CONTINUE 

IF  (NOD (I , J,KM1) .EQ.O)  GOTO  905 

ABB=0.0 

ABBR=0.0 

905  CONTINUE 

IF  (N0D(I,J,KP1) .EQ.O)  GOTO  906 
AFF=0 . 0 
AFFR=0 . 0 

906  CONTINUE 

C  ########################################################## 

AP(I,J,K)=(AE(I,J,K) +AW ( I , J , K) +AN ( I , J , K ) +AS ( I , J , K ) 

&  +AF ( I , J , K) +AB (I , J , K ) +AEE+AWW+ANN+ASS+AFF+ABB ) *CPM ( I , J , K) 

&  +CONDE 1 +CONDW1 +CONDN 1 +CONDS 1 +CONDF 1 +CONDB 1 

AE(I , J,K)=AE(I , J,K)*CPM(IP1 , J,K)+C0NDE1 
AW( I , J , K)=AW ( I , J , K) *CPM( IM1 , J , K ) +C0NDW1 
AN ( I , J , K  =AN ( I , J , K ) *CPM ( I , JP 1 , K  +CONDN1 
AS ( I , J , K ) =AS ( I , J , K ) *CPM ( I , JM1 , K  +CONDS 1 
AF ( I , J , K)=AF ( I , J , K) *CPM ( I , J , KP1 ) +CONDF1 
AB ( I , J , K ) =AB ( I , J , K ) *CPM ( I , J , KM1 ) +CONDB1 

SP( I , J , K)=-ROD ( I , J , K) *VOLDT*CPM ( I , J , K) 

SU(I, J,K  =  ROD ( I , J , K) *VOLDT*TOD ( I , J , K) *CPM( I , J , K) 

SU ( I , J , K)=SU (I , J,K) +AEER+AWWR+ANNR+ASSR+AFFR+ABBR 
100  CONTINUE 

C  ***  TAKE  CARE  OF  B.C.  THRU  AN , AS , AE , AW , AF , AB ,SP  AND  SU 
C  ***  RADIUS  DIRECTION 


cc 


DO  500  1=2 ,NI 
DO  500  K=2,NK 

SP(I,2,K)=SP(I,2,K)+AS(I,2,K) 

SP( I , 2 , K)=SP( I ,2,K)-AS(I,2,K) 

SU( I , 2 , K)=SU(I , 2 ,K)+2 . 0*AS (I , 2 , K)*TPD(I ,  1  ,K) 

SP  I,HJ,K)=SP(I,NJ,K)-AN{I ,NJ,K) 
SU(I,MJ,K)=SU(I/NJ,K)+2.*TPD(I/NJP1/K)*AN(I,NJ,K) 
AS(I , 2 ,K)=G . 

AN( I ,MJ , K)=0 . 

500  CONTINUE 

C  ***  CYLIC  CONDITIONS 

DO  600  J=2 ,NJ 
DO  600  K=2 ,NK 

SU(2  , J,K)=SU(2  , J , K ) +AW ( 2  ,J,K)*T(1  ,J,K) 

SU(NI , J ,K)=SU(NI , J, K)+AE(NI ,J/K)*T(NIP1,J(K) 

AW  2  , J , K)=0 . 0 
AE(NI, J,K)=0.0 
600  CONTINUE 

C  ***  END  OF  SPHERE 

DO  700  1=2 ,NI 
DO  700  J=2 , MJ 

SP(I, J,2)=SP(I, J,2)+AB(I, J,2) 

S?( I , J ,MK)=SP(I , J,MK)+AF(I , J,MK) 

AB( I , J , 2 )=0 . 

AF ( I , J , NK ) =0 . 

700  CONTINUE 


C  *** 


300 


ASSEMBLE  COEFFICIENTS  AND  SOLVE  DIFFERENCE  EQUATIONS 

DO  300  K=2 ,NK 
DO  300  J=2 ,NJ 
DO  300  1=2, NI 

AP ( I , J , K)=AP (I,J,K)-SP(I,J,K) 

CONTINUE 


C  ***  VOLUME  HEAT  SOURCE  INPUT 

VOLT=0 .0 
DO  113  1=2, NI 
DO  113  J=2 ,NJ 
DO  113  K=16 , 17 

IF  (NHSZ (I,J,K) .EQ.O)  GOTO  113 
DXI  =XL( I  , J , K , 0 , 0 ) 

DYJ  =YL ( I , J  , K , 0 , 0 ) 

DZK  =ZL(I , J.K  ,0.0 
VOL=DXI^DYJ*DZK*H:S'HAH 
VOLT=VOLT+VOL 
113  CONTINUE 


.A 

:v: 

* 


k' 


: 


4 


ES 


DO  111  1=2, NI 
DO  111  J=2 ,NJ 
DO  111  K=16 , 17 

IF  (NHSZ (I , J ,K) .EQ.O)  GOTO  111 
DXI  =XL( I  , J , K , 0 , 0) 

DYJ  =YL(I , J  , K, 0 , 0 ) 


dzk  =zl( i , j , k  ;o;o> 

QQQ=Q*H/(UO*CPO*RHOO*TA) 

VOL=DXI*DYJ*DZK 

SU ( I , J , K) =SU ( I , J ,K)+VOL*QQQ/VOLT 
111  CONTINUE 


C  ***  RADIATION  INTO  THE  WALL 


DO  310  K=3 ,NKM1 
DO  310  1=2, NI 
II=(K-3)*(NI-1)+I-1 
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SU(I,NJRA,K)=SU(I,NJRA,K)-RWALL(II) 

310  CONTINUE 

C  ***  END  OF  RADIATION 

C  ***  SOLVE  FOR  T 

CALL  TRID  (2,2,2, NI,NJ,NK,T) 

C  ****  RESET  TEMPERATURE  AT  R=0.0  AND  END  OF  SPHERE 

DO  31  K=1 ,NKP1 

AVT=0 . 0 

DO  82  1=2, NI 

AVT=AVT+ ( T ( I , 2 , K ) /NIM1 ) 

82  CONTINUE 

DO  83  1=1 ,NIP1 
T ( 1 , 1 , K) =AVT 

83  CONTINUE 
81  CONTINUE 

C 

DO  74  1=1 ,MIP1 
DO  74  J=1,NJP1 
T(I,J,1)=T(I,J,2) 

T(I,J,NKP1)=T(I,J,NK) 

74  CONTINUE 

C  ***  FOR  SURFACE  HEAT  EXCHANGE  WITH  SURROUNDING 

DO  84  1=2, MI 
DO  84  K=2 ,NK 
DYJ=YL( I ,NJ ,K,0 , 0) 

T ( I , N JP1 , K ) = ( 2 . 0 *C0ND ( I , N J , K ) *T ( I , N J , K ) / DYJ+HCOEF*TINF ) / 
&  (HCOEF+2 . 0*COND (I,NJ,K)/DYJ) 

CC  T(I,NJP1,K)=T(I,NJM1,K) 

CC  T(I ,NJ  ,K)=T(I,NJM1,K) 

84  CONTINUE 


C  ***  FOR  CYLIC  CONDITION 

DO  80  J=1 ,NJP1 
DO  80  K=1 ,NKP1 
T(1,J,K)=T(NI,J,K) 
T(NIP1,J,K)=T(2,J,K) 

80  CONTINUE 


RETURN 

END 


SUBROUTINE  CALC 

Q  •k’k’k  *************  **********  **★***:;*:*****:*:*:*:  ******  **************** 

COMMON/R4/XC(93) , YC(93) ,ZC( 93) ,XS ( 93 ) , YS (93) ,ZS(93) , 

&  DXXC(93) ,DYYC(93) ,DZZC(93) ,DXXS(93) ,DYYS(93) ,DZZS(93) 

COMMON/ BL1/ DX , DY , DZ , VOL , DTIME , VOLDT , THOT , TCOOL , PI , Q 
COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ , NJP1 , NJM1 , NK ,NKP1 , NKM1 
&  ,NIP2 ,NJP2 ,NKP2 ,NA ,NAP1 ,NAM1 ,NB ,NBP1 , NBM1 , KRUN ,NCHIP ,NJRA ,NWRP 
COMMON /BL1 2/  NWRITE , NTAPE , NTMAXO , NTREAL .TIME , SORSUM , ITER 
C0MM0N/BL14/HC0EF , TINF , CNT , ABTURB , BTURB , VISL , VISMAX , QCORRT , PM1 , PM2 
COMMON/ BL1 6/  CONST1 , CONST2 , C0NST3 , CONST4 , C0NST6 , NT , UO , H , UGRT , BUOY , 
&  CPO , PRT , CONDO , VISO . RHOO , HR , TR , TA , DTEMP . TWRITE , TTAPE , TMAX , GC , RAIR 
COMMON/BL22/ICHPB (10) ,NCHPI ( 10 ) , JCHPB ( 10) ,MCHPJ(10) ,KCHPB(10) , 

&  NCHPK(IO) , TCHP ( 10 ) , CPS (10) ,COMS(10) 

COMMON/ BL31/  TOD ( 22 , 16 , 32) , ROD (22 , 16 , 32) , POD (22 , 16 , 32) 

&  , COD ( 22 ,16,32), UOD( 22 .16,32) , VOD(22 ,16,32) , W0D(22,lb,32) 

COMMON/ BL3 2/  T ( 22 , 16 , 32) , R ( 22 , 16 , 32} , P ( 22 , 16 , 32) 

&  , C(22 , 16 , 32 ) ,U(2Z, 16,32) ,V(22,16.32) ,W(22,16,32) 

COMMON/BL33/  TPD (22 , 16 , 32 ) , RPD (22 , 16 , 32 ) , PPD ( 22 , 16 , 32 ) 

&  ,CPD( 22, 16,32) ,UPD( 22. 16,32) , VPD( 22 . 16 , 32) , WPD (22 , 16 , 32) 

COMMON/BL34/  HEIGHT ( 22 , 16 , 32) , REQ ( 22 , 16 , 32) , 

&  SMP (22 ,16,32) , SMPP(22 ,16,32) , PP ( 22 , 16 , 32) , 


I 


v;av; 


v/v-.v; 


tA.VI.l'iTl 


DU( 22 , 16 , 32} , DV( 22.16 , 32) ,DW( 22 .16,32) 

COMMON/BL36/AP(22 , 16 ,32) , AE ( 22 , 16 , 32) , AW(22 , 16 , 32 ) , AN(22 , 16 , 32) , 
AS (22, 16, 32), AF (22, 16, 32) , AB( 22 , 16 , 32 ) , 

SP( 22, 16,32) ,SU( 22, 16,32) , RI (22 , 16 ,32 ) 

COMMON/ BL3 7 /VIS(22,16,32), COND (22,16,32) , NOD (22 , 16 , 32) ,RWALL(560) 
, CPM(22 ,16,32) ,HSZ(3 , 2 ) ,NHSZ(22 , 16 , 32) , RESORM( 93 ) 
COMMON/BL39/ALEW , PCURVE , CONSRA , PCURM1 , PSOUTH , QCORR , PERROR 

CALCULATE  COEFFICIENTS 

DO  100  K=2 ,NK 

KP2=K+2 

KP1=K+1 

KM1=K-1 

KM2=K-2 

DO  100  J=2 ,NJ 

JP2=J+2 

JP1=J+1 

JM1=J-1 

JM2=J-2 

DO  100  1=2, NI 

IP2=I+2 

IP1=I+1 

IM1=I-1 

IM2=I-2 

IF  (I.EQ.2)  IM2=NIM1 
IF  (I.EQ.NI)  IP2=3 

CENTRAL  LENGTH  OF  THE  SCALE  CONTROL  VOLUME 

DXP1=XL(IP1, J,K,0,0) 

DXI  =XL( I  , J , K,0 , 0 ) 

DXM1=XL ( IM1 , J , K , 0 , 0 ) 

DYP1=YL ( I , JP1 , K , 0 , 0 ) 

DYJ  =YL(I,J  , K, 0 , 0 ) 

DYM1=YL ( I , JM1 , K , 0 , 0 ) 

DZP1=ZL ( I , J , KP1 , 0 , 0 ) 

DZK  =ZL( I , J , K  ,0,0) 

DZM1=ZL ( I , J , KM1 ,0,0) 

SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

DXN=XL(I , JP1 ,K, 0 , 2) 

DXS=XL  I,J  , K, 0 , 2 ) 

DXF=XL ( I , J , KP1 ,0,3) 

DXB=XL(I,J,K  ,0,3) 

DYF=YL ( I , J , KP1 ,0,3) 

DYB=YL ( I , J , K  ,0,3) 

DYE=YL(IP1,J,K,0,1) 

DYW=YL ( I  , J,K, 0 , 1 ) 

DZE=ZL(IP1,J,K,0,1) 

DZW=ZL ( I  , J , K, 0 , 1 ) 

DZN=ZL(I,JP1,K,0,2) 

DZS=ZL(I , J  ,K,0,2) 

CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME  FOR  T 

DXEE=XL( IP2 , J ,K , 0 , 1 ) 

DXE  =XL( IP1 , J , K , 0 , 1 ) 

DXW  =XL ( I  , J , K , 0 , 1 ) 

DXWW=XL ( IM1 , J , K , 0 , 1 ) 

DYNN=YL ( I , JP2 , K , 0 , 2 ) 

DYN  =YL ( I , JP1 ,K , 0 , 2 ) 

DYS  =YL ( I , J  , K , 0 , 2 ) 

DYSS=YL ( I , JM1 , K , 0 , 2 ) 

DZFF=ZL( I , J ,KP2 , 0 , 3 ) 

DZF  =ZL  I,J,KP1,0,3 
DZB  =ZL(I,J,K  ,0,3 
DZBB=ZL( I , J , KM1 , 0 , 3 ) 

DEFINE  THE  AREA  OF  THE  CONTROL  VOLUME 


blVMl.Kl 


J-  _•  V  >  -k 


DXYF=DXF*DYF 

DXYB=DXB*DYB 

DYZE=DYE*DZE 

DYZW=DYW*DZW 

DZXN=DZN*DXN 

DZXS=DZS*DXS 

VOL=DXI*DYJ*DZI< 

VOLDT=VOL/DTIME 

ZXOYN=DZXN/ DYN 
ZXOYS=DZXS/DYS 
XYOZF=DXYF/DZF 
XYOZB=DXYB/DZB 
YZOXE=DYZE/DXE 
YZOXW=DYZW/DXW 

GN=(R(I,J,K)*DYP1+R(I,JP1,K 
GS=  R  I,J,K  *DYM1 +R( I , JM1 , K 
GE=(R( I , J ,K)*DXP1+R( IP1 , J ,K 
GW= ( R ( I , J , K) *DXM1+R ( IM1 , J , K 
GF=  RII, J,K)*DZP1+R  I , J,KP1 
G3=(R(I , J , K) *DZM1+R( I , J , KM1 

CN=GM*V ( I , JP 1 , K ) *DZXN 
CS=GS*V(I,J  ,K)*DZXS 
CE=GE*U< IP1 , J , K  *DYZE 
CW=GW*U(I  ,J,K)*DYZW 
CF=GF*W ( I , J , KP1 ) *DXYF 
CB=GB*W( I ,  J  ,K  )*DXYB 


>  *DYJ) / 
)  *DYJ ) / 
)  *DXI ) / 
>*DXI)/ 

>  *DZK) / 
)  *DZK) / 


DYP1+DYJ) 

DYM1+DYJ 

DXP1+DXI 

DXM1+DXI) 

DZP1+DZK 

DZH1+DZK 


C0NDN=1 . / ( ( 1 . /COND ( I , J ,K)*DYJ+1 , 
C0NDS=1 . / ( ( 1 . /COND ( I , J , K ) *DYJ+1 . 
C0NDE=1 . / ( ( 1 . /COND I ,  J , K) *DXI+1 , 
C0NDW=1 . / ( ( 1 . /COND ( I , J , K ) *DXI+1 , 
C0NDF=1 . / ( ( 1 . /COND ( I , J , K  *DZK+1 , 
C0NDB=1 . / ( ( 1 . / COND ( I , J ,K) *DZK+1 , 

C0NDN1=ZX0YN*C0NDN*ALEW 
CONDS1=ZXOYS*CONDS*ALEW 
C0NDE1=YZ0XE*C0NDE*ALEW 
C0NDW1=YZ0XW*C0NDW*ALEW 
C0NDF1=XY0ZF*C0NDF*ALEW 
C0NDB1=XY0ZB*C0NDB*ALEW 

CEP= ( ABS ( CE ) +CE ) *DXE/DXI / 16  . 
CEM=<ABS(CE)-CE)*DXE/DXP1/16. 
CWP= ( ABS ( CW ) +CW ) *DXW/DXM1 / 1 6 . 
CW11=(ABS(CW)-CW)*DXW/DXI/16. 

CNP= ( ABS ( CM ) +CN ) *DYN/DYJ/ 1 6 . 

CNM= ( ABS ( CM ) -CN ) *DYN/ DYP 1 / 1 6 . 
CSP= { ABS ( CS ) +CS ) *DYS/DYM1/ 1 6 . 
CSM=(ABS (CS ) -CS ) *DYS/DYJ/16 . 

CFP= (ABS ( CF ) +CF)*DZF/DZK/16 . 

CFM= ( ABS (CF)-CF) *DZF/DZP1/ 16  . 
CBP=(ABS(CB)+CB)*DZB/DZM1/16. 
CBM=(ABS(CB)-CB)*DZB/DZK/16. 


/COND< 

/CONDI 

/CONDI 

/CONDI 

/CONDI 

/CONDI 


I,  jpi,k)*dypi; 

I , JM1 , K)*DYM1 
IP1,J,K  *DXP1 
IH1,  J,K)*DX1U 
I, J,KP1  *DZP1 
I, J,KH1)*DZM1 


/ (DYP1+DYJ ) 
/(DYH1+DYJ 
/ (DXP1+DXI ) 
/ (DXH1+DXI ) 
/(DZP1+DZK 
/(DZM1+DZK) 


AE(I ,  J,K) 
AW ( I , J , K  j 
AN  1 1 , J , K ) 
AS (I , J,K 
AF(I,J,K 
AB(I , J,K) 


=-.5*CE+CEP+CEM*(l, 
. 5*CW+CWM+CWP*  1 
- . 5*CN+CNP+CNM* ( 1 
.5*CS+CSM+CSP*(1, 
- . 5*CF+CFP+CFX* ( 1 
.5*CB+CBM+CBP*(1, 


+DXE/DXEE' 

+DXW/DXWW 

+DYN/DYNN, 

+DYS/DYSS 

+DZF/DZFF 

+DZB/DZBB; 


+CWM*DXW/DXE 

+CEP*DXE/DXW 

+CSM*DYS/DYN 

+CNP*DYN/DYS 

+CBM*DZB/DZF 

+CFP*DZF/DZB 


301  AEE=-CEM*DXE/DXEE 

AEER=AEE*CPD ( IP2 , J , K) 
802  CONTINUE 

303  AWW= - CWP * DXW/ DXWW 

AWWR=AWW*CPD (IM2 , J , K) 
804  CONTINUE 


<3 


IF  (J.LT.NJ)  GOTO  805 
ANN=0 . 

ANNR=0 . 

GOTO  806 

805  AMN= - CNM*DYN / DYNN 

ANNR=ANN*CPD ( I ,  JP2  ,  K) 

806  CONTINUE 

IF  (J.GT.2)  GOTO  807 
ASS=Q . 

ASSR=0. 

GOTO  808 

807  ASS=-CSP*DYS/DYSS 

ASSR=ASS*CPD (I, JM2,K) 

808  CONTINUE 

IF  (K.LT.NK)  GOTO  809 
AFF=0 . 

AFFR=0 . 

GOTO  810 

809  AFF=-CFM*DZF/DZFF 

AFFR=AFF*CPD ( I , J , KP2 ) 

810  CONTINUE 

IF  (K.GT.2)  GOTO  811 
ABB=0 . 

ABBR=0 . 

GOTO  812 

811  ABB=-CBP*DZB/DZBB 

ABBR=ABB*CPD ( I , J , KM2 ) 

8 12  CONTINUE 


C  ########################################*############### 

C  ######################################################## 

C  ***  MODIFICATION  FOR  DECK  BOUNDARIES 

900  CONTINUE 

IF  (N0D(IM1 , J,K) .EQ.O)  GOTO  901 
AWW=0 .0 
AWWR=0 . 0 

901  CONTINUE 

IF  (N0D(IP1,J,K) .EQ.O)  GOTO  902 
AEE=0 . 0 
AEER=0 . 0 

902  CONTINUE 

IF  (N0D(I,JM1,K) .EQ.O)  GOTO  903 
ASS=0 . 0 
ASSR=0 . 0 

903  CONTINUE 

IF  (NOD(I,JP1,K).EQ.O)  GOTO  904 
ANN=0 . 0 
ANNR=0 . 0 

904  CONTINUE 

IF  (N0D(I,J,KM1) .EQ.O)  GOTO  905 
ABB=0 . 0 
ABBR=0 . 0 

905  CONTINUE 

IF  (N0D(I,J,KP1) .EQ.O)  GOTO  906 
AFF=0 . 0 
AFFR=0 . 0 

906  CONTINUE 

C  ########################################################## 

AP(I,J,K)=(AE{I,J/K) +AW ( I , J , K ) + AN ( I , J , K ) + AS ( I , J , K ) 

&  +AF(I, J,K)+AB(I , J,K)+AEE+AWW+ANN+ASS+AFF+ABB) 

&  +CONDE1+CONDW1 +CONDN1 +CONDS 1+COND  Fl+CONDB 1 
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AE ( I , J , K ) =AE ( I , J , K ) +CONDE 1 
AW ( I ,  J , K)=AW ( I , J , K) +C0NDW1 
AN ( I , J , K ) =AN ( I , J , K ) +C0NDN1 
AS { I , J , K ) =AS ( I ,  J ,  K ) +CONDS 1 
AF ( I , J , K ) =AF ( I , J , K ) +CONDF 1 
AB(I,J,K)=AB(I,J,K)+C0NDB1 

SP(I,J,K)=-ROD(I,J,K)*VOLDT 

SU(I, J,K)=  ROD(I, J.K)*VOLDT*TOD(I , J,K) 

SU ( I , J , K ) =SU ( I , J , K ) +AEER+AWWR+ANNR+ASSR+AFFR+ABBR 
100  CONTINUE 

C  ***  TAKE  CARE  OF  B.C.  THRU  AN , AS , AE , AW , AF, AB ,SP  AND  SU 
C 

C  ***  RADIUS  DIRECTION 

DO  500  1=2, NI 
DO  500  K=2 ,NK 

CC  SP(I ,2,K)=SP(I ,2,K)+AS(I ,2 ,K) 

SP(I , 2 ,K)=SP(I , 2 , K)-AS( I ,2 , K) 
SU(I,2,K)=SU(I,2,K)+2.0*AS(I,2,K)*CPD(I,1,K) 

SP( I ,NJ , K)=SP( I ,NJ , K) -AN ( I ,NJ , K) 
SU(I,NJ,K)=SU(l/NJ,K)+2. *CPD(I ,NJP1 , K)*AN(I ,NJ (K) 

AS (I , 2 ,K)=0 . 

AN ( I , NJ , K)=0 . 

500  CONTINUE 

C  ***  CYLIC  CONDITIONS 


DO  600  J=2 (NJ 
DO  600  K=2 ,NK 

SU(2  , J,K)=SU{2  , J , K ) +AW ( 2  ,J,K)*C(1  ,J,K) 

SU(NI,J,K)=SU(NI/J,K)+AE (NI , J ,K)*C(NIP1 , J,K) 
AW  2  ,J,K)=0.0 
AE(NI , J,K)=0 .0 
600  CONTINUE 

C  ***  END  OF  SPHERE 


700 


DO  700  1=2, NI 
DO  700  J=2,NJ 

SP(I,J,2)=SP(I,J,2) +AB ( I , J , 2 ) 

SP( I , J,NK)=SP(I , J,NK)+AF(I , J,NK) 
AB( I , J , 2)=0 . 

AF(I,J,NK)=0. 

CONTINUE 


C  ***  ASSEMBLE  COEFFICIENTS  AND  SOLVE  DIFFERENCE  EQUATIONS 


300 


DO  300  K=2 ,NK 
DO  300  J=2 ,NJ 
DO  300  1=2, NI 

AP(I , J ,K)=AP(I ,J,K)-SP(I,J,K) 
CONTINUE 


C  ***  VOLUME  MASS  SOURCE  INPUT 

VOLT=0 .0 
DO  113  1=2, NI 
DO  113  J=2 ,NJ 
DO  113  K=16 , 17 

IF  (NHSZ(I , J,K) .EQ.O)  GOTO  113 
DXI  =XL(I  , J , K , 0 , 0 ) 

DYJ  =YL  I,J  ,K,0 ,0) 

DZK  =ZL(I , J,K  ,0,0 
VOL=DXI*DYJ*DZK*H*H*H 
VOLT=VOLT+VOL 
113  CONTINUE 

DO  111  1=2 ,NI 
DO  111  J=2 ,NJ 
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DO  111  K=16 , 17 

IF  (NHSZ(I,J,K) .EQ.O)  GOTO  111 
DXI  =XL(  I  , J , K, 0 , 0 ) 

DYJ  =YL  I,J  ,  K,  0 , 0 ) 

DZK  =ZL(I,J,K  .0,0) 

QQQ=Q*H/ (UO*CPO*RHOO*TA) 

QHS=  1.0 

OHS  =  QMS*H/(U0*RH00) 

VOL=DXI*DYJ*DZK 

SU(I , J,K)=SU(I, J,K)+VOL*QMS/VOLT 
111  CONTINUE 

C  ***  SOLVE  FOR  C 

CALL  TRID  (2,2,2, NI,NJM1,NK,C) 

C  ****  RESET  CONCENTRATION  AT  R=0.0  AND  END  OF  SPHERE 


DO  81  K=1 ,NKP1 
AVT=0 . 0 


DO  82  1=2, NI 
AVT=AVT  + ( C ( I , 2 , K ) /NIM1 ) 
82  CONTINUE 


DO  83  1=1 ,NIP1 
C(I , 1 , K)=AVT 


83  CONTINUE 


81  CONTINUE 


DO  74  1=1 ,NIP1 
DO  74  J=1 ,NJP1 
C(I , J , 1 )=C ( I , J ,2) 

C ( I , J , NKP 1 ) =C ( I , J , NK ) 

74  CONTINUE 

C  ***  FOR  SURFACE  MASS  EXCHANGE  WITH  SURROUNDING 


84 


DO  84  1=2, NI 
DO  84  K=2 , NK 
C(I,NJP1,K)=C(I,NJ,K) 
CONTINUE 


C  ***  FOR  CYLIC  CONDITION 

DO  80  J=1 ,NJP1 
DO  80  K=1 , NKP1 
C(1,J,K)=C(NI,J,K) 

C (NIP1 , J , K)=C(2 , J , K) 

80  CONTINUE 

RETURN 

END 


SUBROUTINE  CALU 

***************************************************************** 


COMMON/BL7/NI ,NIP1 ,NIM1 , NJ , NJP1 , NJM1 , NK , NKP1 , NKM1 
&  , NIP2 ,NJP2 ,NKP2 ,NA ,NAP1 ,NAM1 ,NB ,NBP1 ,NBH1 , KRUN,NCHIP ,NJRA ,NWRP 

COMMON/ BL1 2/  NWRITE , NTAPE , NTMAXO , NTREAL , TIME , SORSUM , ITER 
COMMON/ BL14/HC0EF , TINF , CNT , ABTURB , BTURB , VISL , VISMAX , QCORRT , PM1 , PM2 
COMMON/BL16/  CONST1 , CONST2 , CONST3 , C0NST4 , CONST6 , NT , UO ,H , UGRT , BUOY , 
&  CPQ , PRT , CONDO , VISO , RHOO , HR , TR , TA , DTEMP , TWRITE , TTAPE , TMAX . GC , RAIR 
COMMON/BL20/SIG11 (22 ,16,32) ,SIG12(22,16,32) ,SIG22(22,16,32) 

&  „^.,,„,.,.oSIG13(22^6'32' 'SIG23<22'16'32) 'SIG33(22,16,32j 

COMMON/BL22/ICHPB( 10) ,NCHPI(10) ,JCHPB(10) ,NCHPJ(lO) ,KCHPB(10) , 

&  NCHPK(IO) ,TCHP( 10) , CPS ( 10) , CONS( 10) 

COMMON/BL31/  TOD(22 , 16 , 32 ) , ROD( 22 , 16 , 32 ) , POD(22 , 16 , 32 ) 

&  ,COD(22,16,32) ,UOD(22. 16,32 ) ,VOD(22, 16,32 ) ,WOD(22, 16, 32) 

COMMON/ BL3 2/  T ( 22 , 16 , 32} , R( 22 , 16 , 32 ) ,P ( 22 , 16 , 32 ) 

&  ,C(22,16,32) ,U(22,16,32) ,V(22,16,32) ,W(22,16,32) 


r 


whlwiww  wunggns  v  vawawa-ju  '-v  wwiw  w  w  w  w  w  ,Ty»jwf»y*  to  ’j  ■>  -q 


COMMON/ BL3 3/  TPD(22 , 16 , 32 ) , RPD(22 , 16 , 32 ) , PPD(22 , 16 , 32) 

&  ,CPD(22, 16,32) ,UPD( 22, 16,32) ,VPD( 22. 16,32 ) ,WPD (22, 16, 32) 

C0MM0N/BL34/  HEIGHT (22, 16.32 ) ,REQ( 22 ,16,32 ) , 

&  SMP(22 ,16,32) ,SMPP (22 , 16, 32), PP (22, 16,32)  , 

Sc  DU(22 , 16 , 32 ) , DV(22 . lb , 32 ) , DW(22 . 16 , 32 ) 

COMMON/BL36/AP (22, 16,32) , AE(22 , 16 , 32) , AW(22 , 16 ,32) , AN(22 , 16 , 32) , 

Sc  AS  (22, 16. 32)  ,  AF(22 , 16 . 32 )  ,  AB(22 , 16 , 32)  , 

&  SP (22, 16,32) , SU(22,16,32) , RI (22 , 16 , 32 ) 

COMMON/BL37/  VIS (22 , 16 , 32 ) , COND ( 22 , 16 , 32 ) , NOD (22 , 16 , 32) ,RWALL(560) 
Sc  , CPM(22 ,16,32) ,HSZ(3,2) ,NHSZ(22 , 16 , 32) ,RESORM(93) 

C  ***  CALCULATE  COEFFICIENTS 

DO  100  K=2 ,NK 

KP2=K+2 

KP1=K+1 

KM1=K-1 

KM2=K-2 

DO  100  J=2 ,NJ 

JP2=J+2 

JP1=J+1 

JM1=J-1 

JM2=J-2 

DO  100  1=2, NI 

IP2=I+2 

IP1=I+1 

IM1=I-1 

IM2=I-2 

IF  (I.EQ.2)  IM1=NI 
IF  (I.EQ.2)  IM2=NIM1 
IF  (I.EQ.3)  IM2=NI 
IF  (I.EQ.NI)  IP2=3 

C  CENTRAL  LENGTH  OF  THE  SCALE  CONTROL  VOLUME 

DXP1=XL(IP1 , J,K, 1 ,0) 

DXI  =XL( I  ,J,K,1,0 
DXM1=XL ( IM1 ,  J ,  K ,  1 , 0 ) 

DYP1=YL (I,JP1,K,1,0) 

DYJ  =YL ( I ,  J  ,K,1 ,0) 

DYM1=YL ( I , JM1 ,  K ,  1 , 0 ) 

DZP1=ZL( I , J , KP1 ,1,0) 

DZK  =ZL(I,J,K  ,1,0) 

DZM1=ZL ( I ,  J , KM1 ,1,0) 

C  ***  SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

DXN=XL ( I , JP1 , K , 1 , 2 ) 

DXS=XL(I , J  ,K, 1 , 2 ) 

DXF=XL ( I , J , KP1 , 1 , 3 ) 

DXB=XL(I,J,K  ,1,3) 

DYF=YL ( I , J , KP1 , 1 , 3 ) 

DYB=YL ( I , J , K  ,1,3) 

DYE=YL( IP1 , J , K , 1 , 1 ) 

DYW=YL ( I  , J ,K, 1 , 1 ) 

DZE=ZL(IP1 , J,K, 1,1) 

DZW=ZL (I  , J , K , 1 , 1 ) 

DZN=ZL ( I , JP1 , K , 1 , 2 ) 

DZS=ZL(I , J  ,K, 1 , 2; 

C  ***  CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME  FOR  U 
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DXEE=XL ( IP2 , J , K , 1 , 1 ) 
DXE  =XL (IP1,J,K,1,1) 
DXW  =XL ( I  , J , K , 1 , 1 ) 
DXWW=XL  ( IM1 ,  J ,  K ,  1 , 1 ) 

DYNN=YL ( I , JP2 , K , 1 , 2 ) 
DYN  =YL( I , JP1 , K , 1 , 2 ) 
DYS  =YL ( I , J  ,K, 1 , 2) 
DYSS=YL ( I , JM1 , K , 1 , 2) 
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c  *** 


c  *** 
c 


f. 

f. 


DZFF=ZL (I ,  J , KP2 ,1,3) 

DZF  =ZL( I , J ,KP1 ,1,3) 

DZB  =ZL ( I ,  J ,  K  ,1,3) 

DZBB=ZL ( I ,  J , KM1 ,1,3) 

DEFINE  THE  AREA  OF  THE  CONTROL  VOLUME 

DXYF=DXF*DYF 

DXYB=DXB*DYB 

DYZE=DYE*DZE 

DYZW=DYW*DZW 

DZXN=DZN*DXN 

DZXS=DZS*DXS 

VOL=DXI*DYJ*DZK 

VOLDT=VOL/DTIME 

ZXOYN=DZXN / DYN 
ZXOYS=DZXS/DYS 
XYOZF=DXYF/DZF 
XYOZB=DXYB/DZB 
YZOXE=DYZE/DXE 
YZOXW=D YZW / DXW 

USE  SI:-CLj:  and  bi -LINEAR  INTERPOLATION  TO  EVALUATE 
PHYSICAL  PROPERTIES  AND  FLUX  ON  THE  SURFACES. 


),R 

;i  ,j,k> 

,R 

IMl , J,K) 

,R 

I  ,J,K 

)  /R 

IM1,J,K) 

GSE=SILIN(R( I  ,JM1,K),R(I  , J , K) , DYM1 ,DYJ)*V(I  ,J 
GSW=S ILIN ( R ( IM1 , JM1 , K ) , R ( IM1 , J , K ) , DYM1 , DY J ) *V ( IM1 , J 

GE  =SILIN(R(IP1,J,K) ,R(I  , J , K) , DXEE , DXE)*U(IP1 , J,K) 
GP  =SILIN(R( IM1 , J,K) ,R( I  ,J,K),DXW  ,DXE)*U(I  ,J,K 
GW  =SILIN(R(IM2,J,k) ,R(IM1, J,K) ,DXWW,DXW)*U(IM1, J,K 


GBE=SILIN(R  I 


,R< 

a  ,J,K 

,R< 

IMl , J , K) 

,R( 

I  ,J,K 

),R< 

,IM1,J,K) 

CE=0.5*(GE+GP)*DYZE 
CW=0 . 5  * ( GP+GW ) *DYZW 

CN=S ILIN ( GNE , GNW , DXE , DXW ) *DZXN 
CS=SILIN ( GSE , GSW , DXE , DXW ) *DZXS 

CF=SILIN (GFE , GFW , DXE , DXW)*DXYF 
CB=SILIN (GBE , GBW , DXE , DXW) *DXYB 

VISE=VIS(I  , J,K) 

VISW=VIS(IM1,J,K) 

VISN=  (VIS(I  , JP1 ,K)+VIS(I  , J,K)+ 

i  VIS (IM1 , JP1 , K )+VIS (iMl , J , K) ) /4 . 0 

viss=  (visa  ,  jmi,k)+vis{i  ,j,k)+ 

i  VIS(IMl,JMl,Kj+VIS(IMl,J,K))/4.0 

VISF=  (VIS(I  , J,KP1)+VIS(I  , J , K)+ 

*  VIS (iMl ,J,KPl)+VIS(lMl,J,K;)/4.Q 

visb=  (visa  ,j,kmi3+vis(i  ,j,k)+ 

i  VIS(IM1, J,KMl)+VIS(IMl,J,K))/4.0 

VISNl=ZXOYN*VISN 

VISSl=ZXOYS*VISS 

VISEl=YZOXE*VISE 

VISWl=YZOXW*VISW 

VISFl=XYOZF*VISF 

VISBl=XYOZB*VISB 


CEP= 

;abs 

;ce 

+CE 

CEM= 

ABS 

CE 

-CE) 

CWP= 

ABS 

CW, 

+cw) 

CWM=< 

,ABS 

cw, 

-cw) 

CNP= ( ABS ( CM ) +CM ) *DYN/DYJ/1 6 . 

CNM=  ABS  CN)-CN)*DYN/DYP1/16. 

CSP=(ABS  CS  +CS  *DYS/DYM1/16. 

CSM= (ABS ( CS ) -CS ) *DYS/DYJ/ 16 . 

CFP=(ABS (CF)+CF)*DZF/DZK/ 16 . 

CFM=(ABS  CF  -CF  *DZF/DZP1/16. 

CBP=( ABS (CB ;+CB ) *DZB/DZM1/ 16 . 

CBM= ( ABS ( CB ) -CB ) *DZ3/DZK/ 16 . 

AE ( I , J , K }=- . 5*CE+CEP+CEM* ( 1 . +DXE/DXEE )+CWM*DXW/DXE+VISEl 
AW  ( I ,  J ,  K )  =  .  5*CW+CWM+CWP*  ( 1  ,+DXW/DXWW )+CEP*DXE/DXW+VISWl 
AN( I , J , K  =- . 5*CN+CNP+CNH*  1 . +DYN/DYNN) +CSM*DYS/DYN+VISN1 
AS(I , J,K)=  . 5*CS+CSM+CSP*( 1 . +DYS/DYSS  j+CNP*DYN/DYS+VISSl 
AF( I , J ,K)=- . 5*CF+CFP+CFM* < 1 .+DZF/DZFF)+CBM*DZB/DZF+VISF1 
AB(I , J,K)=  . 5*CB+CBM+CBP*( 1 . +DZB/DZBB)+CFP*DZF/DZB+VIS31 

801  AEE=-CEM*DXE/DXEE 

AEER=AEE*UPD ( IP2 , J , K) 

802  CONTINUE 

803  AWW=-CWP*DXW/DXWW 

AWWR=AWW*UPD ( IM2 , J , K) 

804  CONTINUE 

IF  (J.LT.NJ)  GOTO  805 
ANN=0 . 

ANNR=0 . 

GOTO  806 

805  ANN=-CNM*DYN/DYNN 

ANNR=ANN*UPD ( I , JP2 ,  K) 

806  CONTINUE 

IF  (J.GT.2)  GOTO  807 
ASS=0. 

ASSR=0 . 

GOTO  808 

807  ASS=-CSP*DYS/DYSS 

ASSR=ASS*UPD( I , JM2 ,K) 

808  CONTINUE 

IF  (K.LT.NK)  GOTO  809 
AFF=0. 

AFFR=0 . 

GOTO  810 

809  AFF=-CFM*DZF/DZFF 

AFFR=AFF*UPD (I , J,KP2) 

310  CONTINUE 

IF  (K.GT.2)  GOTO  811 
ABB=0 . 

ABBR=0 . 

GOTO  812 

811  ABB=-CBP*DZB/DZBB 

ABBR=ABB*UPD ( I , J , KM2 ) 

812  CONTINUE 


c  ########################################################## 

C  ***  MODIFICATION  FOR  DECK  BOUNDARIES 


900  CONTINUE 

IF  (NOD ( IM2 , J , K) . EQ . 0 )  GOTO  901 
AWW=0 .0 
AWWR=0 . 0 

901  CONTINUE 

IF  (N0D(IP1,J,K) .EQ.O)  GOTO  902 
AEE=0 . 0 
AEER=0 .0 

902  CONTINUE 

IF  (NOD (I , JM1 ,K) .EQ.O)  GOTO  903 
ASS=0 .0 


ASSR=0 . 0 

903  CONTINUE 

IF  (NOD (I , JP1 ,K) .EQ.O)  GOTO  904 
ANN=0 . 0 
ANNR=0 . 0 

904  CONTINUE 

IF  (NOD(I , J ,KM1 ) .EQ.O)  GOTO  905 
ABB=0 . 0 
ABBR=0 .0 

905  CONTINUE 

IF  (N0D(I,J,KP1) .EQ.O)  GOTO  906 
AFF=0 . 0 
AFFR=0 . 0 

906  CONTINUE 

C  ############################################################## 


c  ***  SU  FROM  NORMAL  STRESS 

RE=(SIG11 ( I  ,J,K)-(TKTP1,J,K)-U(I  , J,K) )*VISE/DXE)*DYZE 

RW=( SIGil ( IM1 ,J,K)-(J(i  , J,K)-U(IM1, J,K  )*VISW/DXW)*DYZW 

RN=(SIG12(I , JP1,K  -(U  I , JP1,K)-U(I, J  ,K) ) *VISN/DYN) *DZXN 
RS=(SIG12( I ,  J  , K ) - (U( I ,  J  ,K)-U(I,JM1,K) )*VISS/DYS)*DZXS 
RF=(SIG13(I, J,KP1)-(U(I, J,KP1 )-U(I, J,K  ) ) *VISF/DZF) *DXYF 
RB=(SIG13(I,J,K  )-(U(I,J,K  ) -U( I , J ,KM1) ) *VISB/DZB)*DXYB 

C  ***  SU  FROM  CURVED  STRESSES  AND  ACCELERATIONS 

AVG12=0 .5*(SIG12(I,JP1,K)+SIG12(I,J,K)) 
AVG13=0.5*(SIG13(I, J , KP1 5+SIG13 ( I , J , K) 
AVG22=SILIN(SIG22(I,J,K) , SIG22 ( IM1 , J , K) ,DXE,DXW) 
AVG33=SILIN (SIG33 ( I , J , K) , SIG33 ( IMl , J , K) , DXE , DXW ) 

AU1=U(I, J,K) 

AU2=BILIN(V(I  , JP1 ,K) ,V(I  , J,K) ,DYJ,DYJ, 

&  V (iMl , JP1 , K] , V(  IMl , J , K ) , DYJ , DYJ ,  DXE , DXW ) 

AU3=BILIN(W(I  , J,KPl) ,W(  I  , J,K> ,DZK,DZK, 

&  W(IM1 , J ,KP1 ) , w(lMl , J ,K) , DZK,DZK,  DXE,DXW) 

AR=SILIN(R(I,J,K) ,R(IM1 , J,K) , DXE, DXW) 

ARU12=AR*AU1*AU2 

ARU13=AR*AU1*AU3 

ARU22=AR*AU2*AU2 

ARU33=AR*AU3*AU3 


RRY= ( AVG1 2-ARU12 ) *DZK* ( DXN-DXS ) 
RRZ= (AVG13-ARU13 ) *DYJ*(DXF-DXB ) 
RRX=(AVG22-ARU22)*DZK*(DYE-DYW)+ 
&  (AVG33-ARU33)*DYJ*(DZE-DZW) 


AP(I , J ,K)=AE(I , J ,K)+AW(I , J ,K)+AN(I , J , K)+AS (I , J ,K) 

&  +AF ( I , J , K ) +AB (I , J , K ) +AEE+AWW+ANN+ASS+AFF+ABB 

SP(I,J,K)=-(ROD(I, J,K)*DXW+R0D(IM1, J,K)*DXE)/(DXW+DXE)*VOLDT 
SU ( I , J , K) =  ( ROD ( I , J , K j *DXW+R0D ( IMl , J , K ) *DXE ) / ( DXW+DXE ) *VOLDT 
&  *UOD ( I , J , K) 

SU(I , J,K)=SU(I , J , K)+DYJ*DZK* (P(IM1 ,J,K)-P(I,J,K)) 

&  +AEER+AWWR+ANNR+ASSR+AFFR+ABBR 

&  +RE-RW+RN-RS+RF-RB+RRY+RRZ-RRX 


&-BUOY*SIN  ZC(K))*((R(I,J,K)-REQ(I,J,K))*DXW*C0S(XC(I))+(R(IM11 
&  J , K) -REQ ( IMl , J , K) ) *DXE*COS ( XC ( IMl )))/ (DXW+DXE ) *VOL 
100  CONTINUE 


C  ***  TAKE  CARE  OF  B.C.  THRU  AN , AS , AE , AW , AF , AB , SP  AND  SU 

c 

C  ***  RADIUS  DIRECTION 


DO  500  K=2 ,NK 
DO  500  1=2, NI 

CC  SP(I,2,K)=SP(I,2 ,K)+AS ( I , 2 , K) 

SP(I,2,K)=SP(I,2,K)-AS(I,2,K) 


SU( I , 2 , K)=SU( I,2,K)+2.0*U(I,1 , K) *AS (I , 2 , K) 

SP ( I ,NJ ,K)=SP (I ,NJ,K) -AN(I ,NJ,K) 

AN  ( I ,  NJ ,  K )  =0 . 

AS  ( I , 2 , K)=0 . 

500  CONTINUE 

C  ***  CYLIC  CONDITION 

DO  502  K=2 ,NK 
DO  502  J=2 ,NJ 

SU(2  ,J,K)=SU(2  ,  J ,  K ) +AW ( 2  ,J,K)*U(1  ,J,K) 

SU(NI , J , K)=SU(NI , J , K)+AE (NI , J , K)*U(NIP1 , J , K) 
AW (2  , J ,K)=0 .0 
AE (NI , J (K)=0 . 0 
502  CONTINUE 

C  ***  FRONT  AND  BACK  WALLo 

DO  600  1=2, MI 
DO  600  J=2,NJ 

C  ***  SLIP  WALLS 

SP ( I , J , 2 ) =SP ( I , J , 2 ) +AB ( I , J , 2 ) 
SP(I,J,NK)=SP(I,J ,NK)+AF ( I , J ,NK) 

AF(I , J ,NK)=0 . 

AB( I , J , 2 )=0 . 

600  CONTINUE 


IF  (NCHIP.EQ.O)  GOTO  105 

C  ***  MODIFICATION  FOR  DECK  BOUNDARIES 

DO  101  N=1  NCHIP 
IB=ICHPB(N) 

IE=IB+NCHPI(N)-1 

IBM1=IB-1 

IEP1=IE+1 

JB=JCHPB(N) 

JE=JB+NCHPJ (N) -1 
JBM1=JB-1 
JEP1=JE+1 
KB=KCHPB(N) 

KE=KB+NCHPK(N)-1 

KBM1=KB-1 

KEP1=KE+1 

DO  102  J=JB , JE-1 
DO  102  K=KB,KE-1 
AE(IBM1,J,K)=0.0 
AW(IEP1 , J ,K)=0 . 0 

102  CONTINUE 

DO  103  I=IB  ,  IE 
DO  103  K=KB,KE-1 

SP(I , JBM1 ,K)=SP(I , JBM1 ,K)-AN(I , JBM1 ,K) 
AN (I , JBM1 ,K;=0.0 

SP(I , JE ,K)=SP(I , JE ,K) -AS (I , JE ,K) 

AS (I , JE , K)=Q . 0 

103  CONTINUE 

DO  106  I=IB , IE 
DO  106  J=JB , JE-1 

SP ( I , J , KBM1  )=SP ( I , J ,KBM1) -AF (I , J , KBM1 ) 
AF( I , J , KBM1 )=0 . 0 

SP(I , J , KE)=SP( I , J, KE ) -AB ( I , J , KE) 

AB(I , J ,KE)=0 . 0 
106  CONTINUE 
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C  ***  FOR  THE  CELLS  INSIDE  OF  THE  DECKS 

DO  104  I=IB , IE 
DO  104  J=JB , JE-1 
DO  104  K=KB ,KE-1 
SP( I , J , K)=-l . 0E20 
AW(I,J,K)=0. 

AE(I,J,K  =0. 

AS  ( I , J , K)=Q . 

AN(I, J,K)=0. 

SU(I, J,K)=0. 

104  CONTINUE 
101  CONTINUE 

105  CONTINUE 


C  ***  ASSEMBLE  COEFFICIENTS  AND  SOLVE  DIFFERENCE  EQUATIONS 

DO  301  K=2 ,NK 
DO  301  J=2 ,MJ 
DO  301  1=2 ,NI 
DYJ=YL ( I , J , K , 1 , 0 ) 

DZK=ZL ( I ,  J ,  K ,  1 , 0 ) 

DYZ=DYJ*DZK 

AP (I , J , K)=AP(I , J,K)-SP(I , J,K) 

DU( I , J , K)=DYZ/AP ( I , J , K) 

301  CONTINUE 


>• 

%• 
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C  ***  SOLVE  FOR  U 

CALL  TRID  ( 2 , 2 , 2 , NI , NJ , NK , U ) 

DO  74  1=2  ,NIP1 
DO  74  J=2 ,NJP1 
U? I , J , 1 )=U( I , J , 2 ) 

U(I , J ,NKP1)=U(I , J ,NK) 

74  CONTINUE 

DO  79  1=1 ,NIP1 
DO  79  K=1 ,NKP1 
C  U(I , 1 , K)=U(I , 2 ,K) 

79  CONTINUE 


IF  (NCHIP.EQ.O)  GOTO  112 

c  ################!########################################### 

C  ########################################## 

C  ***  RESET  THE  VELOCITY  INSIDE  OF  DECK 


DO  110  N=1 .NCHIP 
IB=ICHPB(N) 

IE=IB+NCHPI(N)-1 
JB=JCHPB (N ) 

JE=JB+NCHPJ (N) -1 
KB=KCHPB(N) 

KE=KB+NCHPK(N)-1 
DO  108  I=IB , IE 
DO  108  J=JB,JE-1 
DO  108  K=KB,KE-1 
U( I , J ,K)=0 .0 
108  CONTINUE 
110  CONTINUE 
112  CONTINUE 

C  ################################################ 

RETURN 

END 
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SUBROUTINE  CALV 

COMMON/R4/XC(93) ,YC(93) ,ZC(93) ,XS(93) ,YS(93) ,ZS(93) , 

&  DXXC(93) ,DYYC(93) ,DZZC(93) ,DXXS(93) ,DYYS(93) ,DZZS(93) 

COMMON/ BL1/DX , DY , DZ , VOL , DTIME , VOLDT , THOT , TCOOL , PI , Q 
COMMON/ 3L7/NI ,NIP1 ,NIM1 ,NJ , NJP1 , NJM1 ,NK,MKP1 ,MKM1 
&  , NIP2 , NJP2 , NKP2 , NA , NAP 1 , NAM1 , NB , NBP 1 , NBM1 , KRUN , NCHIP , NJRA , NWRP 

COMMON/ BL1 2/  NWRITE , NT APE , NTMAXO , NTREAL , TIME , SORSUM , ITER 
COMMON/BL16/  CONST1 , CONST2 , C0MST3 , C0NST4 , CONST6 , NT , UO , H , UGRT , BUOY , 
&  CPO , PRT , CONDO , VI SO , RHOO , HR , TR , TA , DTEMP , TWRITE , TTAPE , TMAX , GC , RAIR 
COMMON/ BL2Q/ SIGll (22,16,32) ,SIG12(22,16,32) , SI G2 2(22,16, 32) 

&  , SIG13 (22 .16,32) , SIG23 ( 22 , 16 , 32 ) , SIG33 ( 22 , 16 , 32 ) 

COMMON/BL22/ICHPB(10) ,MCHPI(10) , JCHPB(IO) ,NCHPJ(iO) ,KCHPB(10) , 

&  NCHPK(10 ) ,TCHP( 10 ) , CPS ( 10 ) , CONS (10) 

C0MM0N/BL31/  TOD ( 22 , 16 , 32 ) , ROD ( 22 , 16 , 32 ) , POD( 22 , 16 , 32) 

&  , COD (22, 16,32) ,UOD(22 . 16 , 32) , VOD(22 , 16 , 32 ) ,WOD(22 , 16 , 32) 

COMMON/BL32/  T(22 , 16 , 32 ) , R(22 , 16 , 32 ) , P( 22 , 16 , 32 ) 

&  ,0(22,16,32) ,U(22,16,32) ,V(22, 16.32) ,W( 22, 16,32) 

C0MM0N/BL33/  TPD ( 22 , 16 , 32 ) , RPD( 22 , IS , 32) , PPD(22 , 16 , 32 ) 

&  , CPD( 22 ,16,32) , UPD(22 .16,32) , VPD(22 . 16 , 32 ) , WPD(22 , 16 , 32) 

C0MM0N/BL34/  HEIGHT( 22 , 16 , 32 ) , REQ( 22 , 16 , 32)  , 

SMP(22 ,16.32) , SMPP (22,16,32) ,PP(22, 16,32) , 

DU (22, 16,32)  ,DV(22,16,32)  , DW( 22 . 16 , 32) 

C0MM0N/BL36/AP (22, 16,32) , AE (22 , 16 , 32) , AW (22 , 16 , 32) , AN(22 , 16 , 32) , 

AS (22, 16,32) ,AF( 22, 16,32 ) ,AB( 22, 16,32 ) , 

SP(22,16,32) ,SU(22,16,32) , RI (22 , 16 , 32) 

C0MM0N/BL37/  VIS (22 , 16 , 32 ) , COND( 22 , 16 , 32) , NOD (22 , 16 ,32) ,RWALL(560) 
&  , CPM(22 ,16,32) ,HSZ(3 , 2) ,NHSZ(22 ,16,32) ,RES0RM(93 ) 


CALCULATE  COEFFICIENTS 

DO  100  K=2,NK 

KP2=K+2 

KP1=K+1 

KM1=K-1 

KM2=K-2 

DO  100  J=3 ,NJ 

JP2=J+2 

JP1=J+1 

JM1=J-1 

JM2=J-2 

DO  100  1=2, NI 

IP2=I+2 

IP1=I+1 

IM1=I- 1 

IM2=I-2 

IF  (I.EQ.2)  IM2=NIM1 
IF  (I.EQ.NI)  IP2=3 


CENTRAL  LENGTH  OF  THE  SCALE  CONTROL  VOLUME 

DXP1=XL( IP1 , J ,K, 2 ,0 ) 

DXI  =XL  I  , J , K, 2 , 0 ) 

DXM1=XL ( IM1 , J , K , 2 , 0 ) 

DYP1=YL( I , JP1 ,K , 2 , 0 ) 

DYJ  =YL(I , J  , K , 2 , 0 ) 

DYM1=YL ( I , JM1 , K , 2 , 0 ) 

DZP1=ZL(I , J ,KP1 , 2 , 0) 

DZK  =ZL ( I , J , K  ,2,0 
DZM1=ZL ( I , J , KM1 ,2,0) 

SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

DXN=XL ( I , JP1 , K , 2 , 2 ) 

DXS=XL ( I , J  , K, 2 , 2) 


c  *** 


DXF=XL ( I , J , KP1 ,2,2) 

DXB=XL ( I ,  J ,  K  ,2,3) 

DYF=YL ( I , J , KP1 , 2 , 3 ) 

DYB=YL  I , J , K  ,2,3 
DYE=YL( IP1 , J ,K , 2 , 1 ) 

DYW=YL(I  , J ,K,2 , 1) 

DZE=ZL( IP1 , J , K, 2 , 1 ) 

DZW=ZL  I  ,  J  ,  K ,  2 , 1 ) 

DZN=ZL  I,JP1,K,2,2) 

DZS=ZL(I , J  ,K,2,2) 

CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME 

DXEE=XL ( IP2 , J , K , 2 , 1 ) 

DXE  =XL ( IP1 , J , K, 2 , 1 ) 

DXH  =XL(I  , J,K,2, 1) 

DXWW=XL ( IM1 , J , K , 2 , 1 ) 

DYNN=YL ( I , JP2 , K , 2 , 2 ) 

DYN  =YL  I,JP1,K,2,2 
DYS  =YL  I,J  ,  K ,  2 , 2 ) 

DYSS=YL ( I , JM1 ,  K ,  2 , 2 ) 

DZFF=ZL ( I , J , KP2 ,2,3) 

DZF  =ZL(I,J,KP1,2,3) 

DZB  =ZL(I,J,K  ,2,3 
DZ3B=ZL ( I , J , KM1 ,2,3) 

C  ***  DEFINE  THE  AREA  OF  THE  CONTROL  VOLUME 

DXYF=DXF*DYF 

DXYB=DXB*DYB 

DYZE=DYE*DZE 

DYZW=DYW*DZW 

DZXN=DZN*DXN 

DZXS=DZS*DXS 

VOL=DXI*DYJ*DZK 

VOLDT=VOL/DTIME 

ZXOYN=DZXN / DYN 
ZXOYS=DZXS/DYS 
XYOZF=DXYF /DZF 
XYOZB=DXYB/DZB 
YZOXE=DYZE / DXE 
YZOXW=DYZW/DXW 

C  ***  USE  SINGLE  AND  BI-LINEAR  INTERPOLATION  TO  EVALUATE 
C  &  PHYSICAL  PROPERTIES  AND  FLUX  ON  THE  SURFACES. 

GEN=SILIN(R(IP1,J  , K) , R( I , J  , K) , DXP1 , DXI )*U( IP1 , J  ,K) 
GES=SILIN  R  IP1,JM1,K  ,R  I, JM1 , K) ,DXP1 , DXI )*U( IP1 , JM1,K) 
GV/N=SILIN(R(IM1, J  ,K),R(I,J  ,K) ,DXM1 ,DXI )*U(I  ,J  ,K) 

GWS=SILIN(R( IM1 , JM1 , K) ,R(I, JM1,K) , DXM1 , DXI ) *U( I  ,JM1,K) 

GM  =SILIN(R(I,JP1,K),R(I,J  , K) , DYNN, DYN) *V ( 1 , JP1 ,K) 

GP  =SILIN(R(I , JM1 ,K) ,R(I , J  ,K) ,DYS  ,DYN)*V(I,J  ,K) 

GS  =SILIN(R( I , JM2 , K) , R( I , JM1 , K) ,DYSS ,DYS)*V(I , JM1 ,K) 

GFN=SILIN(R(I , J  , KP1 ) , R( I , J  , K ) , DZP 1 , DZK ) *W ( I , J  ,KP1) 
GFS=S ILIN ( R ( I , JM1 , KP 1  , R ( I , JM1 , K ) , DZP1 , DZK ) *W ( I , JM1 , KP1 ) 
GBN=SILIN(R  I,J  , KM1 ) , R( I , J  , K ) , DZM1 , DZK) *W  I , J  ,K  ) 
GBS=SILIN(R( I , JM1 , KM1 ) , R( I , JM1 , K) , DZM1 , DZK) *W( I , JM1 , K  ) 

CN=0.5*(GN+GP)*DZXN 
CS=0 . 5* (GP+GS ) *DZXS 

CE=SILIN (GEN , GES , DYN , DYS ) *DYZE 
CW=SILIN ( GWN , GWS , DYN , DYS ) *DYZW 

CF=S ILIN (GFN , GFS , DYN , DYS ) *DXYF 
CB=S ILIN (G3N , GBS , DYN , DYS ) *DXYB 

VISN=VIS (I , J  , K) 

VISS=VIS(I,JM1,K) 
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VISE=  (VIS(IP1,J  , K)+VIS ( I , J  ,K)+ 

&  VIS ( IF1 , JM1 , K;+VIS( I , JM1 , K )  )/4 . 0 

VISW=  (VIS ( IM1 , J  , K)+VIS ( I , J  ,K)+ 

&  VIS(IM1, JH1,X)+VIS(I, JMl,K))/4.0 

VISF=  (VIS(I,J  , KP1 )+VIS ( I , J  , K) + 

&  VIS(I, JMl,KPl)+VIS(I,JMl,K))/4.0 

VISB=  (VIS(I,J  , KM1)+VIS ( I , J  , K)+ 

&  VIS(I,  JM1, Kill  j+VIS(I,  Jill, Kj)/4.0 


VISN1=ZX0YN*VISN 

VISS1=ZX0YS*VISS 

VISE1=YZ0XE*VISE 

VISW1=YZ0XW*VISW 

VISF1=XY0ZF*VISF 

VISB1=XY0ZB*VISB 


CEP= ( ABS ( CE ) +CE ) *DXE/DXI / 16 . 

CEM= ( ABS ( CE  - CE )  *DXE /DXP 1 / 1 6 . 

CWP=  ( ABS ( CW  +CW  *DXW/DXH1 / 1 6 . 

CWM=(ABS (CW) -CW) *DXW/DXI/ IS . 

CNP=  ( ABS  ( CM )  +CH )  *DYN/DY J/ 1 6 . 

CNM= ( ABS ( CN ) - CN  *DYN/ D YP 1 / 1 6 . 
CSP=(ABS(CS)+CS)*DYS/DYH1/16. 

CSM= ( ABS ( CS )  -CS ) *DYS/DY J/ 16 . 

CFP= (ABS ( CF) +CF ) *DZF/DZK/ 16  . 
CFM=(ABS(CF)-CF)*DZF/DZP1/16. 

CBP= ( ABS ( CB  +CB ) *DZB/ DZM1 / 1 6  . 

CBM= (ABS (CB ) -CB ) *DZB/DZK/16  . 

AE ( I , J , K)=- . 5*CE+CEP+CEM*( 1 . +DXE/DXEE ) +CWM*DXW/DXE+VISE1 
AW ( I , J , K ) =  . 5*CW+CWM+CWP* ( 1 . +DXW/DXWW ) +CEP*DXE/DXW+VISW1 
AN  (I ,  J ,  K)=-  .  5*CN+CNP+CNM*  1 .  +DYN/DYNN)+CSN*DYS/DYN+VISN1 
AS { I , J , K)=  . 5*CS+CSM+CSP*  1 . +DYS/DYSS )+CNP*DYN/DYS+VISSl 
AF ( I , J , K ) =- . 5*CF+CFP+CFM* ( 1 . +DZF/DZFF) +CBM*DZB/DZF+VISF1 
AB ( I , J , K) =  . 5*CB+CBM+CBP* ( 1 . +DZB/DZBB )+CFP*DZF/DZB+VISBl 

801  AEE=-CEM*DXE/DX£E 

AEER=AEE*VPD (IP2, J,K) 

802  CONTINUE 

803  AWW=-CWP*DXW/DXWW 

AWWR=AWW*VPD ( IM2 , J , K) 

804  CONTINUE 

IF  (J.LT.NJ)  GOTO  805 
ANN=Q , 

ANNR=0 . 

GOTO  806 

805  ANN = - CNN* D YN / DYNN 

AMNR=ANN*VPD ( I , JP2 , K) 

806  CONTINUE 

IF  (J.GT.3)  GOTO  807 
ASS=0  . 

ASSR=0. 

GOTO  808 

807  ASS=-CSP*DYS/DYSS 

ASSR=ASS*VPD (I , JM2 , K) 

808  CONTINUE 

IF  (K.LT.NK)  GOTO  809 
AFF=0 . 

AFFR=0  . 

GOTO  810 

809  AFF=-CFM*DZF/DZFF 

AFFR=AFF*VPD(I , J,KP2) 

810  CONTINUE 


IF  (K.GT.2)  GOTO  311 
ABB=0 . 

ASBR=0 . 

GOTO  812 

811  AEB=-CSP*DZ3/DZBB 

ABBR=ABB*VPD(I, J,KM2) 

812  CONTINUE 


C  ***  MODIFICATION  FOR  DECK  BOUNDARIES 

900  CONTINUE 

IF  (N0D(IM1 , J,K) . EQ.O)  GOTO  901 
AWW=0 . 0 
AWWR=0 . 0 

901  CONTINUE 

IF  (N0D(IP1,J,K) .EQ.O)  GOTO  902 
AEE=0 . 0 
AEER=0 . 0 

902  CONTINUE 

IF  (NOD(I,JM2,K) .EQ.O)  GOTO  903 
ASS=0 . 0 
ASSR=0 . 0 

903  CONTINUE 

IF  (NOD(I, JP1,K) .EQ.O)  GOTO  904 
ANN=0 . 0 
ANNR=0 . 0 

904  CONTINUE 

IF  (N0D(I,J,KM1) .EQ.O)  GOTO  905 
ABB=0 . 0 
ABBR=0 . 0 

905  CONTINUE 

IF  (NOD(I, J.KPl) .EQ.O)  GOTO  906 
AFF=0 . 0 
AFFR=0 . 0 

906  CONTINUE 

C  ############################################### 

c  ############################################################## 

C  ***  SU  FROM  NORMAL  STRESS 

RN=(SIG22(I,J  ,K)-(V(I,JP1,K)-V(I,J  ,K) )*VISN/DYN)*DZXN 

RS=(SIG22(I, JM1 , K ) - ( V( I ,  J  ,K  -V  I , JH1,K) )*VISS/DYS)*DZXS 
RE=(SIG12(IP1, J,K)-  V  IP1, J,K)-V(l , J  , K) ) *VISE/DKE ) *DYZE 
RW=( SIG12 < I  , J , K ) - ( V( I  , J,K  -V(IH1 , J , K) ) *VISW/DXW) *DYZW 
RF=(SIG23(I , J,KP1)-(V(I, J,KP1  -V(I , J,K  ) )*VISF/DZF)*DXYF 
RB=(SIG23(l , J,K  ) - (V( I , J , K  ) -V( I , J , KM1 ) ) *VISB/DZB) *DKYB 

C  ***  SU  FROM  CURVED  STRESSES  AND  ACCELERATIONS 

AVG12=0.5*(SIG12(IP1, J,K)+SIG12(I , J,K) ) 

AVG23=0 .5*(SIG23(I,J,KP1)+SIG23(I,J,K) 

AVG11=SILIN(SIG11(I ,J,K) , SIGH ( I , JU1 , K ) , DYN , DYS ) 
AVG33=SILIN(SIG33(I, J,K) ,SIG33(I , JM1 , K) , DYN, DYS) 

AU2=V ( I , J , K) 

AU1=BILIN(U(IP1 , J  , K) , U( I , J  , K) , DXI , DXI , 

&  U(IP1 ,JM1 ,K) ,U(I ,JM1 ,K) , DXI ,DXI ,  DYN, DYS) 

AU3=BILIN(W(I  , J , KPl) , W( I  , J , K ) , DZK , DZK , 

&  W( I , JM1 , KPl ) , W ( I , JM1 , K) , DZK , DZK ,  DYN, DYS) 

AR=SILIN(R(I , J,K) , R ( I , JM1 , K ) , DYN, DYS) 

ARU12=AR*AU1*AU2 
ARU23=AR*AU2*AU3 
ARU1 1=AR*AU1*AU1 
ARU33=AR*AU3*AU3 


RRX= ( AVG12-ARU1 2 ) *DZK* ( DYE-DYW ) 
RRZ=(AVG23-ARU23 ) *DXI* (DYF-DYB 
RRY=(AVGll-ARUll)*DZK*(DXN-DXS>+ 
&  (AVG33-ARU33 )*DXI*(DZN-DZS  ) 


AP(I , J ,K)=AE ( I , J ,K)+AW(I , J, K)+AN(I , J , K)+AS ( I , J ,K) 

&  +AF ( I , J , K J +AB ( I , J , K } +AEE+AWW+ANN+AS  S + AFF+ABB 

SP(I, J,K)=-(ROD(I , J,K)*DYS+ROD(I, JM1 , K) *DYN) / (DYS+DYN) *VOLDT 
S  U ( I , J , K ) =  ( ROD ( I , J , K ) *DYS+ROD ( I , JM1 , K ) *DYN ) / ( DYS+DYN ) *VOLDT 
&  *VOD(I , J,K) 

SU(I , J , K)=SU( I , J , K)+DZK*DXI*(P ( I , JM1 ,K)-P(I,J,K) ) 

&  +AEER+AWWR+ANNR+ASSR+AFFR+ABER 

&  +RE-RW+RN-RS+RF-RB+RRX+RRZ-RRY 

&  -BUOY*  ((R(I,J,X)-REQ(I,J,K))  *DYS+  ( R  ( I ,  -JM1 ,  K) 

&  -REQ(I , JM1 ,K) )*DYN)/ (DYS+DYN )*VOL*SIH(ZC(K) )*SIN(XC(I ) ) 

100  CONTINUE 

C  ***  TAKE  CARE  OF  B.C.  THRU  AN, AS , AE , AW, AF , AB , SP  AND  SU 
C 

C  ***  RADIUS  DIRECTION 

DO  500  K=2  ,NK 
DO  500  1=2, NI 

CC  SP(I,3,K)=SP(I,3 , K) +AS ( I , 3 ,K) 

SU( I , 3 ,K)=SU(I , 3 ,K)+AS(I ,3 ,K)*V(I , 2 ,K) 

AS( I ,3 ,K)=0 . 

AN ( I ,NJ , K)=0 . 

500  CONTINUE 

C  ***  CYLIC  CONDITIONS 

DO  502  K=2 ,NK 
DO  502  J=3 ,NJ 

SU(2  , J,K)=SU(2  , J , K ) +AW ( 2  ,J,K)*V(1  ,J,K) 

SU(NI,J,K  =SU(NI,J,K)+AE(NI,J,K)*V(NIP1,J,K) 

AVJ ( 2  ,J,K)=0.0 
AE (NI , J ,K)=0 . 0 
502  CONTINUE 

C  ***  FRONT  AND  BACK  WALL 

DO  600  1=2, NI 
DO  600  J=3 ,NJ 
JM1=J-1 

C  ***  SLIP  WALLS 

SP ( I , J , 2 ) =SP ( I , J , 2 ) +AB ( I , J , 2 ) 

SP ( I , J , NK ) =SP ( I , J , NK ) +AF ( I , J , NK ) 

AF(I , J ,NK)=0 . 

AB( I , J , 2 )=0 . 

600  CONTINUE 


C  #######^#########^######################################### 
c  ***  MODIFICATION  FOR  DECK  BOUNDARIES 

DO  101  N=1 .NCHIP 
IB=ICHPB(N) 

IE=IB+NCHPI (N) “ 1 
IBM1=IB-1 
IEP1=IE+1 
JB=JCHPB (N ) 

JE=JB+NCHPJ (N) -1 
JBM1=JB-1 
JEP1=JE+1 
KB=KCHPB(N) 

KE=KB+MCH?K(N)-1 

KBM1=KB-1 

KEP1=KE+1 


no 


79  CONTINUE 


IF  (NCHIP.EQ.O)  GOTO  112 

C  ***  RESET  THE  VELOCITY  INSIDE  OF  THE  DECKS 

DO  110  N=1 , NCHIP 
I3=ICHPB(N) 

IE=IB+MCHPI(N)-1 

JB=JCHPB(N) 

JE=JB+NCHPJ(N)-1 

KB=KCHPB(N) 

KE=KB+NCHPK(N)-1 
DO  108  I=IB , IE-1 
DO  108  J=JB,JE 
DO  108  K=KB ,  KE-1 
V(I,J,K)=0.0 
108  CONTINUE 
110  CONTINUE' 

112  CONTINUE 

RETURN 

END 


C 


SUBROUTINE  CALW 

**************************************************************** 
C0MM0N/R4/XC (93) ,YC(93) ,ZC(93) ,XS(93) ,YS(93) ,ZS(93) , 

&  DXXC(93) ,DYYC(93) ,DZZC(93) ,DXXS(93) ,DYYS(93) ,DZZS(93) 

COHMON/BL1/DX , DY , DZ , VOL , DTIME , VOLDT , THOT , TCOOL ,  PI ,  Q 
COMMON/BL7 /NI , NIP1 , NIM1 , NJ , NJP1 , NJM1 , NK , NKP1 , NKH1 
&  , NIP2 , NJP2 , NKP2 , NA ( NAP1 , NAM1 , NB , NBP1 , NBM1 , KRUN , NCHIP , NJRA , NWRP 

COMMON/ BL1 2/  NWRITE ,NTAPE , NTMAXO , NTREAL , TIME , SORSUM , ITER 
COMMON/BL16/  CONST1 , CONST2 , CONST3 , C0NST4 , CONST6 , NT , UO , H , UGRT , BUOY , 
&  CPO , PRT , CONDO , VISO , RHOO , HR , TR , TA , DTEMP , TWRITE , TTAPE , TMAX . GC , RAIR 
COMMON/BL20/SIG11 (22 , 16 , 32 ) , SIG12 (22 , 16 , 32 j , SIG22 (22 , 16 , 32) 

&  ,SIG13(22. 16,32) ,SIG23 (22 , 16 , 32) , SIG33 (22 , 16 , 32 ) 

COMMON/BL22/ICHPB ( lO) ,NCHPI(10) , JCHPB(IO) ,NCHPJ(10) ,KCHPB(10) , 

&  NCHPK(IO) ,TCHP(10) ,CPS(10) ,CONS(10) 

COMMON/BL31/  TOD (22 ,16,32), ROD (22 ,16,32) , POD (22 , 16 , 32 ) 

&  , COD (22, 16 ,32) , UOD(22 . 16 , 32) , VOD(22 , l6 , 32) , WOD(22 , 16 , 32) 

COMMON/BL32/  T(22 , 16 , 32) , R(22 , 16 , 32) ,P(22 , 16 , 32) 

&  ,C(22, 16, 32),U(22, 16,32), V(22, 16.32) ,N(22,16,32) 

COMMON/BL33/  TPD(22 , 16 , 32) , RPD(22 , 16 , 32) , PPD(22 , 16 , 32) 

&  , CPD(22 ,16,32) , UPD ( 22 ,16,32) , VPD( 22 . 16 , 32) ,WPD(22 , 16 , 32) 

COMMON/BL34/  HEIGHT( 22 , 16 . 32) , REQ ( 22 , 16 , 32) , 

&  SMP(22 ,16,32) , SMPP (22, 16, 32), PP( 22, 16, 32), 

&  DU( 22, 16,32) ,DV(22.16,32) ,DW( 22 .16,32) 

COMMON/ BL3 6 /AP (22, 16,32) ,AE(22,16,32) ,AW(22, 16,32) ,AN(22 , 16 , 32) , 

&  AS (22, 16, 32), AF (22, 16, 32), AB (22, 16, 32), 

&  SP (22, 16, 32), SU (22, 16, 32), RI (22, 16, 32) 

COMMON/BL37/  VIS (22 , 16 , 32 ) , COND ( 22 , 16 , 32) ,NOD(22 , 16 , 32) , RWALL( 560) 
&  , CPM( 22 ,16,32) ,HSZ(3,2) ,NHSZ(22 ,16,32) , RESORM(93 ) 


C  ***  CALCULATE  COEFFICIENTS 

DO  100  K=3 ,NK 

KP2=K+2 

KP1=K+1 

KM1=K-1 

KM2=K-2 

DO  100  J=2 ,NJ 

JP2=J+2 

JP1=J+1 

JM1=J-1 
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JM2=J-2 

DO  100  1=2, NI 

IP2=I+2 

IP1=I+1 

1111=1-1 

IM2=I-2 

IF  (I.EQ.2)  IM2=NIM1 
IF  (I.EQ.NI)  IP2=3 

CENTRAL  LENGTH  OF  THE  SCALE  CONTROL  VOLUME 

DKP1=XL ( IP1 , J , K , 3 , 0 ) 

DXI  =XL(  I  , J ,K , 3 , 0 ) 

DXM1=XL ( IM1 ,  J ,  K ,  3 , 0 ) 

DYP1=YL(I , JP1 ,K,3 ,0) 

DYJ  =YL( I , J  ,  K ,  3 , 0 ) 

DYM1=YL ( I , JM1 ,  K ,  3 , 0 ) 

DZP1=ZL( I , J , KP1 ,3,0) 

DZK  =ZL(I,J,K  ,3,0) 

DZM1=ZL ( I , J , KM1 ,3,0) 

SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

DXN=XL I 
DXS=XLl 
DXF=XLl 
DXB=XL I 

DYF=YL 
DYB=YL 
DYE=YL 
DYW=YLi 


EW 

CW 


I 

I 


Sji 

l£ 


c  *** 


I , JP1 ,K, 3 , 2 
I,J  , K, 3 , 2 
I , J ,KP1 ,3,3 
I,J,K  ,3,31 

I,J,KP1,3,3; 
I,J,K  ,3,3 
IP1 , J,K,3,1 
I  , J,K,3,1 


DZE=ZL( IP1 , J , K , 3 , 1 ' 

DZW=ZL  I  , J ,K, 3 , 1 
DZN=ZL( I , JP1 , K , 3 , 2 
DZS=ZL(I,J  ,K,3,2; 

CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME 


1 

DXEE=XL 

IP2 , J ,K, 3 , 1 

DXE  =XL 

IP1 , J ,K, 3 , 1 

%• 

DXW  =XL 

I  , J,K, 3 , 1 

V 

DXWW=XL 

;imi,j,k,3,i 

V 

DYNN=YL 

[I,JP2,K,3,2 

DYN  =YL 

I , JP1 ,K,3 ,2 

ai 

DYS  =YL 

I,J  ,K, 3 ,2 

|_V 

DYSS=YL 

;i,JMl,K,3,2 

8 

DZFF=ZL 

;i,J,KP2,3,3 

t-: 

DZF  =ZL 

;  I , J ,KP1 ,3,3 

DZB  =ZL 

I,J,K  ,3,3 

DZBB=ZL 

[  I , J , KMl ,3,3 

•kick 


DEFINE  THE  AREA  OF  THE  CONTROL  VOLUME 

DXYF=DXF*DYF 

DXYB=DXB*DYB 

DYZE=DYE*DZE 

DYZW=DYW*DZW 

DZXN=DZN*DXN 

DZXS=DZS*DXS 

VOL=DXI*DYJ*DZK 

VOLDT=VOL/DTIME 

ZXOYN=DZXN/DYN 

ZXOYS=DZXS/DYS 

XYOZF=DXYF/DZF 

XYOZB=DXYB/DZB 

YZOXE=DYZE/DXE 

YZOXW=DYZW/DXW 
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c  *** 
c  & 


USE  SINGLE  AND  SI -LINEAR  INTERPOLATION  TO  EVALUATE 
PHYSICAL  PROPERTIES  AND  FLUX  ON  THE  SURFACES. 


GNF=SILINI 

;ri 

;i,jpi,k 

I  ,  Rl 

I,J,K 

GNB=SILINl 

Rl 

I.JPl.KMlj 

1  ,  Rl 

I , J , KM1 ) 

GSF=SILINI 

R< 

I.  Jill, K  ! 

1  ,  Rl 

I ,  J,K 

GSB=SILIN( 

R< 

I,JM1,KM1 

1  ,Rl 

I,  J, Kill) 

, DYP1 , DYJ )  *V( I , JP1 ,K  ) 
,  DYP1 , DYJ ) *V ( I , JP1 , KM1 ) 
,  DYM1 , DYJ ) *V(I , J  , K 
,DYH1 ,DYJ)*V(I , J  ,KM1) 


GF  =SILIN(R( 
GP  =SILIN(R( 
GB  =SILIN(R( 

GEF=SILIN(R( 

GEB=SILIN(R( 

GWF=SILIN(R 

GWB=SILIN(R( 


I.J.KPl  ,R 
I ,  J , KM1 ) , R 
I,J,KM2).R 


I , J , K  ) , DZFF , DZF )  *W  ( I ,  J ,  KP 1 ) 
I , J , K  ),DZB  ,DZF)*W  I,J,K  ) 
I , J , KM1 ) , DZBB , DZB ) *W ( I , J , KM1 ) 


IP1 ,  J,K 
IP1 , J,KM1 
INI ,  J ,  K 
INI , J , KM1 


,R 

I.J.K 

(DXPl(DXi; 

*U 

IP1 , J , K  ) 

,R 

I,  J, Kill 

, DXP1 ,  DXI 

*U 

IP1, J.KMl) 

,R 

I  J,K 

,DX111 ,  DXI 

*U 

I  ,  J ,  K  ) 

,R 

,DX111  ,  DXI, 

*U 

I  ,  J , KM1 ) 

CF=0 . 5*(GF+GP) *DXYF 
CB=0 .  5*  ( GP+GB ) *DXYB 


CN=SILIN (GNF , GNB , DZF , DZB ) *DZXN 
CS=SILIN  (GSF ,  GSB ,  DZF ,  DZB )  *DZXS 

CE=SILIN(GEF , GEB , DZF , DZB ) *DYZE 
CW=SILIN (GWF , GWB , DZF , DZB ) *DYZW 

VISF=VIS(I ,  J,K  ) 

VISB=VIS (I , J  ,KH1 ) 

VISN=  (VIS(I,JP1, 

&  VIS(I,JP1, 

VISS=  (VIS ( I , JM1 , 

&  VIS (I , JM1 , 


K  )+VIS(I,J,K  )+ 
KN1)+VIS(I,J, KM1 ) )  /  4 .0 
K  )+VIS ( I ,  J ,  K  )+ 

KM1 )+VIS( I , J , KM1 } ) /4 .0 


VISE= 

Sc 

VISW= 

Sc 


(VIS(IP1,J,K 
VIS(IP1, J,KH1 
(VIS (INI , J,K 
VIS(IH1 , J ,KM1 


) +VIS ( I ,  J ,  K 
5+VIS(I, J,KM1 
)+VIS(I, J,K 
)+VIS(I,J,KMl 


+ 


)/4.0 

+ 


)/4.0 


VISN1=ZX0YN*VISN 

VISS1=ZX0YS*VISS 

VISE1=YZ0XE*VISE 

VISW1=YZ0XW*VISW 

VISF1=XY0ZF*VISF 

VISB1=XY0ZB*VISB 


CEP=(ABS(CE)+CE)*DXE/DXI/16. 
CEM= ( ABS ( CE ) - CE ) *DXE / DXP 1 / 1 6 . 
CWP=(ABS(CW)+CW)*DXW/DXM1/16. 
CWM= (ABS (CW) -CW) *DXW/DXI/16 . 

CNP= ( ABS ( CN ) +CN ) *DYN/DYJ/ 1 6 . 
CNM= ( ABS  ( CN )  -  CN ) *DYN /DYP1/16. 
CSP=(ABS (CS )+CS ) *DYS/DYH1/16 . 
CSM= ( ABS ( CS ) -CS ) *DYS/DYJ/16 . 

CFP= ( ABS ( CF ) +CF ) *DZF/ DZK/ 1 6 . 
CFM=(ABS (CF )-CF ) *DZF/DZP1/16 . 
CBP=(ABS(CB)+CB)*DZB/DZM1/16. 
CBM=(ABS(CB)-CB)*DZB/DZK/16. 


AE ( I , J , K) =- . 5*CE+CEP+CEM* ( 1 . +DXE/DXEE ) 
AW(I,J,K)=  . 5*CW+CWM+CWP* ( 1 . +DXW/DXWW ) 
AN ( I , J , K) =- . 5*CN+CNP+CNI1* ( 1 . +DYN/DYNN ) 
AS(I.J,K)=  . 5*CS+CSI1+CSP*(  1 . +DYS/DYSS } 
AF(I, J,K)=-.5*CF+CFP+CFM*(1.+DZF/DZFF) 
AB ( I , J , K ) =  . 5*CB+CBM+CBP* ( 1 . +DZB/ DZBB ) 


+CWM*DXW/DXE+VISE1 

+CEP*DXE/DXW+VISW1 

+CSM*DYS/DYN+VISN1 

+CNP*DYN/DYS+VISS1 

+CBM*DZB/DZF+VISF1 

+CFP*DZF/DZB+VISB1 


801  AEE=-CEM*DXE/DXEE 

AEER=AEE*WPD(IP2, J,K) 

802  CONTINUE 

803  AWW=-CWP*DXW/DXWW 

AWWR=AWW*WPD ( IM2 , J , K) 
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804  CONTINUE 

IF  ( J.LT.NJ)  GOTO  805 
ANN=0 , 

AMNR=0 . 

GOTO  806 

805  ANN=-CNM*DYN/DYNN 

ANNR=ANN*WPD ( I , JP2 , K) 

806  CONTINUE 

IF  (J.GT.2)  GOTO  807 
ASS=0. 

ASSR=0 . 

GOTO  808 

807  ASS=-CSP*DYS/DYSS 

ASSR=ASS*WPD ( I , JM2 , K) 

808  CONTINUE 

IF  (K.LT.NK)  GOTO  809 
AFF=0 . 

AFFR=0 . 

GOTO  810 

809  AFF=-CFM*DZF/DZFF 

AFFR=AFF*WPD (I , J,KP2) 

310  CONTINUE 

IF  (K.GT.3)  GOTO  811 
A3B=0 . 

ABBR=0 . 

GOTO  812 

811  A3B=-CBP*DZB/DZBB 

ABBR=AB8*WPD ( I , J , KM2 ) 

812  CONTINUE 

C  ***  MODIFICATION  FOR  DECK  BOUNDARIES 

900  CONTINUE 

IF  (NOD ( IM1 ,  J ,  K) . EQ . 0 )  GOTO  901 
AWW=0 . 0 
AWWR=0 . 0 

901  CONTINUE 

IF  (N0D(IP1 ,  J,K) .EQ.O)  GOTO  902 
AEE=0 .0 
AEER=0 .0 

902  CONTINUE 

IF  (NOD(I, JMl.K) .EQ.O)  GOTO  903 
ASS=0 . 0 
ASSR=0 . 0 

903  CONTINUE 

IF  (NOD (I , JP1 ,K) .EQ.O)  GOTO  904 

ANN=0 .0 

ANNR=0.0 

904  CONTINUE 

IF  (NOD(I,J,KM2) .EQ.O)  GOTO  905 
ABB=0 .0 
ABBR=0 . 0 

905  CONTINUE 

IF  (NOD(I, J,KP1) .EQ.O)  GOTO  906 
AFF=Q  .0 
AFFR=0 . 0 

906  CONTINUE 

C  ######################«############»############# 

C  ################################################################ 


SU  FROM  NORMAL  STRESS 

RF=(SIG33( I , J ,K  )-(W(I,J,KPl)-W(I,J,K  ) )*VISF/DZF)*DXYF 


C  *** 


100 

c  *** 
c 

c  *** 


500 
c  *** 


502 
£  *** 


RB=(SIG33 (I , J  ,KM1 ) - (W(I , J ,K  )-W( 
RN=  SIG23  I,JP1,K  -  W  I, JP1,K  -W 
RS=(SIG23 ( I , J  , K) - (W( I , J  , K)-W( 
RE=  SIG13  IP1, J,K)-(W(IP1, J,K  -W 
RW=(SIG13 ( I  ,J,K)-(W(I  ,J,K)-W( 


C  *** 


I , J , KM1 ) ) *VI SB/DZB ) *DXYB 
I,J  ,K)  )*VISN/DYN)*DZXI1 
I , JM1 , X) ) *VISS/DYS ) *DZXS 
I  , J,K))*VISE/DXE)*DYZE 
IM1 , J , K ) ) *VI SW/ DOT ) *DYZW 

ACCELERATIONS 


,  K  ) , V( I , J , K 
,KM1 ; , V(I , J , Kill ] 
,  K  ) , U( I , J , K 


J,KM1) , DZF, DZB 
J,KM1) ,DZF,DZB 


, DY J , DYJ , 

,  DYJ , DYJ ,  DZF, DZB) 
, DXI , DXI , 

,  DXI, DXI,  DZF ,DZB) 


DZB+DZF ) *VOLDT 
DZB+DZF ) *VOLDT 


RW=(SIG13 (I  , J, K)- (W(I  , J,K)-W(IM1 , J , K) )*VISW/DOT)*DYZW 
SU  FROM  CURVED  STRESSES  AND  ACCELERATIONS 

AVG23=0.5*(SIG23(I , JP1,K)+SIG23(I, J,K)) 

AVG13=0. 5*(SIG13(IP1 ,J,K)+SIG13(I,J,K) ) 

AVG22=SILIN(SIG22(I, J(K) ,SIG22(I, J,KM1) , DZF, DZB) 
AVG11=SILIN(SIG11 { I ,  J,K) ,  SIGH  (I , J, KM1 ) ,DZF , DZB) 

AU3=W(I ,  J,K) 

AU2=BILIN(V(I , JP1 ,K  ),V(I,J,K  ), DYJ, DYJ, 

&  V(I,JP1,KM1),V(I,J,KM1> , DYJ, DYJ,  DZF, DZB) 

AU1=BILIN(U(IP1, J,K  ),U(I,J,K  ), DXI, DXI, 

&  U( IP1 , J , KM1 ) , U (I , J , KM1 ; , DXI , DXI ,  DZF, DZB) 

AR=SILIN(R( I,J,K) ,R(I,J,KM1) , DZF , DZB ) 

ARU23=AR*AU2*AU3 
ARU1 3=AR*AU 1 *AU3 
ARU22=AR*AU2*AU2 
ARU 1 1 =AR  *AU 1  *AU1 

RRY= ( AVG23- ARU23 ) *DXI* (DZN-DZS ) 

RRX=(AVG13-ARU13)*DYJ*(DZE-DZW) 

RRZ=(AVG22-ARU22)*DXI*(DYF-DYB)+ 

&  (AVG11-ARU11)*DYJ*(DXF-DXB) 

AP(I , J ,K)=AE ( I , J ,K)+AW( I , J,K)+AN(I , J , K)+AS (I , J ,K) 

&  +AF ( I ,  J ,  K ) +AB ( I , J , K ) + AEE+AWW+ANN+ASS+AFF+ABB 

SP(I,J,K)=-(R0D(I,J,K)*DZB+R0D(I,J,KM1)*DZF)/(DZB+DZF)*V0LDT 
SU ( I , J , K ) =  ( ROD  < I , J , K ) *DZB+ROD ( I , J , KM1 ) *DZF ) / ( DZB+DZF ) *VOLDT 
&  *WOD (I .  J ,  K) 

SU(I,J,K)=SU(I, J,K)+DXI*DYJ*(P(I, J,KM1)-P(I , J,K) ) 

&  +AEER+AWWR+ANNR+ASSR+AFFR+ABBR 

&  +RE-RW+RN-RS+RF-RB+RRY+RRX-RRZ 

&  -BUOY* ( (R( I , J ,R) -REQ(I , J ,K) ) *DZB*COS (ZC(K) )+(R( I , J , 

&  KM1 ) -REQ (I , J , KM1 ) ) *DZF*COS (ZC(KMl) ) )/ (DZB+DZF) *VOL*SIN (XC (I) ) 
CONTINUE 

TAKE  CARE  OF  B.C.  THRU  AN,AS,AE,AW,AP  AND  SU 

RADIUS  DIRECTION 

DO  500  K=3,NK 
DO  500  1=2 ,NI 
KM1=K-1 

SP (I , 2 ,K)=SP( I , 2 ,K)+AS ( I , 2 , K) 

SP( I ,2 ,K)=SP(I ,2 ,K)-AS(I , 2 ,K) 

SU(I,2,K)=SU(I,2,K)+2.0*W(I,1 , K)*AS (I , 2 ,K) 

SP (I ,NJ ,K)=SP(I ,NJ , K) -AN( I ,NJ , K) 

AS(I ,2,K)=0. 

AN ( I , NJ , K)=0 . 

CONTINUE 

CYLIC  CONDITIONS 

DO  502  K=3 ,NK 
DO  502  J=2 ,NJ 

SU(2  , J ,K)=SU(2  , J,K)+AW(2  ,J,K)*W(1  ,J,K) 

SU  NI,J,K  =SU  NI, J,K)+AE(NI,J,K)*W(NIP1,J,K 
AW  2  ,J,K  =0.0 
AE(NI , J ,  K)=0 . 0 
CONTINUE 

FRONT  AND  BACK  WALL 
DO  600  1=2, NI 
DO  600  J=2,NJ 

SP(I,J,NK)=SP(I , J ,NK)+AF(I , J ,NK) 

SP  I,J,3  )=SP( I , J , 3  )+AB(I , J, 3  ) 

AF( I , J,NK)=0 . 

AB( I , J , 3 )=0 . 


%  A  \ 


600  CONTINUE 


IF  (NCHIP.EQ.O)  GOTO  105 

C  ###################################################### 

C  ***  MODIFICATION  FOR  DECK  BOUNDARIES 

DO  101  N=1 .NCHIP 
IB=ICHPB(N) 

IE=IB+NCHPI(N)-1 

IBM1=IB-1 

IEP1=IE+1 

JB=JCHPB(N) 

JE=JB+NCHPJ(N) -1 
JBM1=JB-1 
JEP1=JE+1 
KB=KCHPB(N) 

KE=KB+NCHPK(N) -1 

KBM1=KB-1 

KEP1=KE+1 

DO  102  J=JB , JE-1 
DO  102  K=KB.KE 

SP(IBM1, J,K)=SI v IlMI ,  J ,  K) -AE ( IBM1 , J , K) 
AE(IBM1,J,K)=0.0 

SP(IE, J,K)=SP(IE, J,K)-AW{IE, J,K) 

AW(IE,J,K)=0.0 

102  CONTINUE 

DO  103  I=IB , IE-1 
DO  103  K=KB.KE 

SP(I , JBM1 , K)=SP(I , JBM1 , K)-AN(I ,  JBM1 ,K) 

AN ( I , JBM1 , K ) =0 . 0 

SP(I , JE ,K)=SP(I , JE ,K)-AS(I , JE ,K) 

AS ( I , JE , K)=0 . 0 

103  CONTINUE 

DO  106  I=IB , IE-1 
DO  106  J=JB, JE-1 
AF ( I , J , KBM1 j  =0 . 0 
AB ( I , J , KEPI ) =0 . 0 
106  CONTINUE 

C  ***  FOR  THE  CELLS  INSIDE  OF  THE  DECKS 

DO  104  I=IB , IE-1 
DO  104  J=JB , JE-1 
DO  104  K=KB , KE 
SP( I , J ,K)=-1 .0E20 
AW( I , J , K)=0 . 

AE  I,J,K  =0. 

AS ( I , J , K )=0 . 

AN(I,J,K)=0. 

SU(I, J,K)=0. 

104  CONTINUE 
101  CONTINUE 

105  CONTINUE 

C  ####################################### 

C  ***  ASSEMBLE  COEFFICIENTS  AND  SOLVE  DIFFERENCE  EQUATIONS 

DO  301  K=3 ,NK 
DO  301  J=2 ,NJ 
DO  301  1=2, NI 
DKI=KL( I , J , K , 3 , 0 ) 

DY J=YL ( I , J , K , 3 , 0 ) 

DXY=DXI*DYJ 


no 


AP  I,J,K  =AP(I,J,K)-SP(I,J,K) 

DW(I, J,K)=DXY/AP(I,J,K) 

301  CONTINUE 

C  ***  SOLVE  FOR  W 

CALL  TRID  (2, 2, 3 ,NI ,NJ,NK,W) 

C 

DO  76  1=1, MI 
DO  76  J=1 ,NJ 
W(I,J,2)=W(I,J,3) 

W  ( I ,J,MKP1)=W(I ,J, NK ) 

76  CONTINUE 

IF  (NCHIP.EQ.O)  GOTO  112 

C  ft###############!############################################## 
C  ######################«######################################## 
C  ***  RESET  THE  VELOCITY  INSIDE  OF  THE  DECKS 

DO  110  N=1 .NCHIP 
I3=ICHPB(N) 

IE=IB+NCHPI (N) -1 
JB=JCHPB (N ) 

JE=JB+MCHPJ(N)-1 

KB=KCHPB(N) 

KE=KB+NCHPK(N) -1 
DO  108  I=IB , IE-1 
DO  108  J=JB , JE-1 
DO  108  K=KB , KE 
W( I , J , K)=0 . 0 
108  CONTINUE 
110  CONTINUE 
112  CONTINUE 

RETURN 

END 


i ********************************************** ************** 

SUBROUTINE  CALP 

C  ************************************************************ 

C0MM0N/R4/XC (93) ,YC(93) ,ZC(93) ,XS(93) ,YS(93) ,ZS(93) , 

&  DXXC(93) , DYYC(93 ) , DZZC(93 ) , DXXS (93 ) ,DYYS(93) ,DZZS(93) 

COMMON/ BL1/DX , DY , DZ , VOL , DTIME , VOLDT , THOT , TCOOL , PI , Q 
COMMON/BL7/NI ,NIP1 ,NIM1 , NJ , NJP1 , NJM1 , NK , NKP1 ,NKM1 
&  ,NIP2 ,NJP2 , MKP2 , NA , NAP 1 , NAM1 , NB , NBP 1 , NBM1 , KRUN , NCHIP , NJRA , NWRP 
C0MM0N/BL12/  NWRITE , NTAPE , NTMAXO , NTREAL , TIME , SORSUM , ITER 
COMMON/BL16/  CONSTl , CONST2 , CONST3 , C0NST4 , CONST6 ,NT , UO , H , UGRT , BUOY , 
&  CPO , PRT , CONDO , VISO . RHOO , HR , TR , TA , DTEMP . TWRITE , TTAPE , TMAX , GC , RAIR 
COMMON/ BL2 2/ ICHPB (10) ,NCHPI(10) , JCHPB(IO) ,NCHPJ(10) ,KCHPB(10) , 

&  NCHPK(IO) ,TCHP(10) , CPS (10) , CONS (10) 

COMMON/BL31/  TOD(22 , 16 ,32) , ROD( 22 , 16 , 32) , POD(22 , 16 , 32) 

&  , COD (22 ,16,32) ,U0D (22,16, 32) , VOD (22 , lb , 32) , WOD(22 , 16 , 32 ) 

COMMON/BL32/  T(22 , 16 , 32 } , R( 22 , 16 , 32) ,P(22,16,32) 

&  , c(22, 16, 32 ) ,U(22, 16,32 ) ,V(22, 16,32) ,W(22,16,32) 

COMMON/BL33/  TPD (22 , 16 , 32 ) , RPD ( 22 , 16 , 32 ) ,PPD( 22 , 16 , 32 ) 

&  ,CPD(22,16,32) ,UPD(22, 16,32 ) ,VPD(22, 16,32 ) ,WPD(22, 16, 32) 

COMMON/ BL3 4/  HEIGHT(22 , 16 , 32) , REQ( 22 , 16 , 32) , 

&  SMP (22 ,16,32) , SMPP (22 ,16,32) ,PP(22 , 16 ,32) , 

&  DU( 22 , 16 , 32 ) , DV(22 , 16 , 32 ) ,DW(22 , 16 , 32 ) 

COMMON/ BL3 6 /AP (22, 16,32) , AE (22 , 16 , 32) , AW( 22 , 16 , 32) , AN( 22 , 16 , 32 ) , 

&  AS (22, 16, 32) ,AF (22, 16,32) , AB(22 , 16,32)  , 

&  SP( 22, 16,32) ,SU( 22, 16,32) ,RI(22,16,32 
C0MM0N/BL37/  VIS ( 22 , 16 , 32 ) , COND(22 , 16 , 32) , NOD (22 , 16 , 32) ,RWALL(560) 
&  ,CPM(22, 16,32) ,HSZ(3, 2) ,NHSZ(22, 16,32) ,RESORM(93) 

C  ***  CALCULATE  COEFFICIENTS 

DO  100  K=2 ,NK 
KP2=K+2 


201 


KP1=K+1 

KM1=K-1 

KM2=K-2 

DO  100  J=2,NJ 

JP2=J+2 

JP1=J+1 

JM1=J-1 

JM2=J-2 

DO  100  1=2, NI 

IP2=I+2 

IP1=I+1 

IM1=I-1 

IM2=I-2 

IF  (I.EQ.NI)  IP1=2 


3 


I 


CENTRAL  LENGTH  OF  THE  SCALE  CONTROL  VOLUME 

DXP1=XL(IP1, J,K,0,0) 

DXI  =XL  I  ,J,K,0,0 
DXM1=XL(IM1 , J,K,0,0) 

DYP1=YL ( I , JP1 , K , 0 , 0 ) 

DYJ  =YL(I,J  ,  K ,  0 , 0 ) 

DYM1=YL(I , JM1 ,K,0 ,0) 

DZP1=ZL( I , J ,KP1 ,0 , 0 ) 

DZK  =ZL( I , J , K  ,0,0) 

DZM1=ZL ( I ,  J , KM1 ,0,0) 

SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

DXN=XL(I , JP1 ,K,0,2] 

DXS=XL( I , J  , K, 0 , 2 
DXF=XL(I , J,KP1 ,0,3 
DXB=XL(I,J,K  ,0,3] 

DYF= YL ( I , J , KP 1 ,0,3] 

DYB=YL  I,J,K  ,0,3 
DYE=YL( IP1 , J ,K, 0 , 1 , 

DYW=YL ( I  ,J,K,0,i: 


1 


DZE=ZL ( IP1 , J , K , 0 , 1 ' 


DZW=ZL( I  , J , K , 0 , 1 
DZN=ZL (I,JP1,K,0,2 
DZS=ZL ( I , J  ,K,0,2; 


DEFINE  AREA  OF  THE  CONTROL  VOLUME 

DXYF=DXF*DYF 

DXYB=DXB*DYB 

DYZE=DYE*DZE 

DYZW=DYW*DZW 

DZXN=DZN*DXN 

DZXS=DZS*DXS 

VOL=DXI*DYJ*DZK 

VOLDT=VOL/DTIME 

RN=(R( I , J , K) *DYP1+R( I , JP1 , K) *DYJ) / (DYP1+DYJ ) 

RS=(R( I , J , K) *DYM1+R( I , JM1 , K) *DYJ ) / ( DYM?  +DYJ ) 

RE=(R(I, J,K  *DXP1+R(IP1 , J,K  *DXI ) / ( DXP1+DXI ) 

RW=(R(I, J,K )*DXM1+R  IM1 , J,K)*DXI)/  DXM1+DXI) 

RF=(R  I , J,K  *DZP1+R  I , J,KP1)*DZK)/(DZP1+DZK) 

RB=(R(I , J,K)*DZM1+R(I, J , KM1 ) *DZK) / (DZMl+DZK) 

DU  ON  VERTICAL  WALLS  AND  DV  ON  HORIZENTAL  WALLS  ARE  ZERO 

AN(I,  J,K)=RN*DZ:<N*DV(I ,  JP1,K) 

AS (I ,  J,K)=RS*DZXS*DV(I , J,K) 

AE(I , J,K )=RE*DYZE*DU(IP1, J.K) 

AW ( I , J , K ) =RW*DYZW*DU ( I , J , K ) 

AF ( I , J , K ) =RF*DXYF*DW ( I , J , KP 1 ) 

AB ( I , J , K ) =RB*DXYB*DW( I , J , K) 

CN=RN*V (I , JP1 ,K) *DZXN 


no 


CS=RS*V(I,J  ,K)*DZXS 
CE=RE*U ( IP1 , J , K  *DYZE 
CW=RW*U (I  , J , K ) *DYZW 
CF=RF*W ( I , J , KP1 J *DXYF 
CS=RB*W ( I , J , K  ) *DXYB 

SMP (I, J,K)=-(R(I, J,K)-ROD(I, J,K))*VOL/DTIME-CE+CW-CN+CS-CF+CB 
C  SMP (I , J,K)=-CE+CW-CH+CS-CF+CB 
SU ( I , J , K) =SMP (I , J , K) 

S?(I , J,K)=0. 

100  CONTINUE 

C  ***  TAKE  CARE  OF  B.C.  THRU  AN , AS , AE , AW , AF , AB , SP  AND  SU 
C 

C  ***  RADIUS  DIRECTION 

DO  500  K=2 ,NK 
DO  500  1=2, NI 
AS(I,2,K)=0. 

AN(I,MJ,K)=0. 

500  CONTINUE 

C  ***  LEFT  WALL  AND  RIGHT  WALL 

DO  501  K=2,NK 
DO  501  J=2,NJ 
AW( 2 , J ,K)=0 . 

AE (MI , J , K)=0 . 

501  CONTINUE 

C  ***  FRONT  AND  BACK  WALL 

DO  502  1=2, NI 
DO  502  J=2,NJ 
AB ( I , J , 2 )=0 . 0 
AF ( I , J , NK)=0 . 0 
502  CONTINUE 


IF  (NCHIP.EQ.O)  GOTO  105 

C  ***  MODIFICATION  FOR  DECK  BOUNDARIES 

DO  101  N=1 .NCHIP 
IB=ICHPB(N) 

IE=IB+NCHPI (N) -1 
IBM1=IB-1 
IEP1=IE+1 
JB=JCHPB(N) 

JE=JB+NCHPJ(N)-1 
JBM1=JB- 1 
JEP1=JE+1 
KB=KCHPB(N) 

KE=KB+NCHPK(N) -1 
KBM1=KB- 1 
KEP1=KE+1 

DO  102  J=JB , JE-1 
DO  102  K=KB,KE-1 
AE(IBM1 , J.K)=0 .0 
AW(IE,J,K)=0.0 

102  CONTINUE 

DO  103  I  =  IB ,  IE-1 
DO  103  K=KB , KE-1 
AM( I , JBM1 , K)=0 .0 
AS ( I , JE , K)=0 . 0 

103  CONTINUE 

DO  106  I=IB , IE- 1 
DO  106  J=JB , JE-1 
AF ( I , J , KBM1 ) =0 . 0 


r 


1 


£ 


( 


K 


K 


P 


£ 


R 


ft 


AB ( I , J , KE ) =0 . 0 
106  CONTINUE 


C  ***  FOR  THE  CELLS  INSIDE  OF  THE  DECKS 


DO  104  I=IB , IE-1 
DO  104  J=JB , JE- 1 
DO  104  K=KB , KE- 1 
SP(I, J,K)=-1.0E20 
AW  ( I ,  J  ,  K )  =0 . 
AE(I,J,K  =0. 

AS(I, J,K  =0. 

AN ( I , J , K) =0 . 

SU( I , J, K)=0 . 

104  CONTINUE 
101  CONTINUE 

105  CONTINUE 


*** 


ASSEMBLE  COEFFICIENTS  AND  SOLVE  DIFFERENCE  EQUATIONS 

DO  300  J=2 ,NJ 
DO  300  1=2, NI 
DO  300  K=2 ,NK 

AP(I , J , K)=AN( I , J , K)+AS( I , J ,K)+AE ( I , J ,K)+AW(I ,J,K)-SP(I,J,K) 
&  +AF ( I , J , K ) +AB ( I , J , K ) 

300  CONTINUE 


n% 

c  *** 

SOLUTION  OF  FINITE 

,v 

V 

CALL  TRID 

(2 , 2 , 2 ,NI 

V 

ft 

c  *** 

THIS  IS  FOR  CHECKING 

DO  161  1=1 ,NIP1 

& 

c 

WRITE  (6,*)  ] 

1 

949 

FORMAT  (  1 

M*  ') 

;/ 

C 

WRITE  (6,949 

,%• 

C 

WRITE  (6,999 

( ( AW ( I , 

,*•' 

161 

CONTINUE 

_  » 

DO  160  1=1 , NIP1 

.\ 

C 

WRITE  (6 , *)  I 

i 

948 

C 

FORMAT  (  ' 
WRITE  (6,948 

\E  ') 

9 

C 

WRITE  (6,999 

( (AE(I , 

Ti 

> 

160 

CONTINUE 

I? 

£ 

DO  170  1=1 ,NIP1 

C 

WRITE  (6 , *)  I 

958 

FORMAT  (  '  AB  '  ) 

C 

WRITE  (6,958 

>> 

C 

WRITE  (6,999 

((AB(I, 

| 

170 

CONTINUE 

'  . 

DO  180  1=1 ,NIP1 

C 

WRITE  (6,*)  I 

rm\ 

968 

FORMAT  (  1  AF  '  ) 

<mm  • 

C 

WRITE  (6,968 

r  ‘ 

c 

WRITE  (6,999 

((AF(I, 

r. 

f  9 

180 

CONTINUE 

/  ' 

C 

WRITE  (6,999)  ((SU(I, 
DO  190  1=1 ,NIP1 

• 

C 

WRITE  (6,*)  I 

978 

FORMAT  (  '  SU  1 ) 

C 

WRITE  (6,978 

,v 

C 

WRITE  (6,999 

((SU(I, 

,v 

190 

CONTINUE 

DO  191  1=1 , NIP1 

. ' 

C 

WRITE  (6,*) 

[ 

C 

WRITE  (6,988) 

7=1 ,NJP1 ) 


J=1 , NJP1 ) 


7=1 ,NJP1 ) 


=1 ,NJP1 ) 
=1,NIP1) 


7=1 ,NJP1 ) 
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^ *-*■-** A. .  v  -V  A  J*  A  AVHvA A -ft k  i% -*< -V  ^  - 


on  non 


983  FORMAT  (  1  PP  ' ) 

C  WRITE  (6,999)  ( (PP ( I , J , K) , J=1 ,NJPI ) , K-7 , 7 ) 
191  CONTINUE 
999  FORMAT  (12E10.3) 


C  *** 
C 

c  *** 


CORRECT  VELOCITIES  AND  PRESSURE 


C  ***  CORRECTION  FOR  VELOCITY  U 

DO  600  1=2, NI 
IM1=I-1 

IF  (I.EQ.2)  IM1=NI 
DO  600  J=2,NJ 
DO  600  K=2 ,NK 

U(I,J,K)=U(I,J ,K)+DU(I, J,K)*(PP(IM1, J,K)-PP(I , J,K) ) 
600  CONTINUE 

C  ***  CORRECTION  FOR  VELOCITY  V 

DO  603  J=3 ,NJ 
JM1=J- 1 
DO  603  K=2 ,NK 
DO  603  1=2, NI 

,n,  V(I  J i,K)=V(I,J,K)+DV(IjJ,K)*(PP(I,JM1,K)-PP(I,J,K)) 
603  CONTINUE 

C  ***  CORRECTION  OF  VELOCITY  W 

DO  604  K=3 ,NK 
KM1=K-1 
DO  604  1=2, NI 
DO  604  J=2 ,NJ 

604 


C  *** 


CORRECTION  FOR  PRESSURE  P 


DO  606  J=2 ,NJ 
DO  606  1=1 , NIP1 
DO  606  K=1 ,NK 

P(I,J,K)=P(I, J ,K)+PP ( I , J ,K) 
PP( I , J , K)=0 . 

606  CONTINUE 

C  ***  THIS  IS  FOR  R=0 .0  CASE 

DO  75  1=1 ,NIP1 
DO  75  K=1 . NKP1 
U(I,1,K  =U(I,2,K) 

W( I , 1 , K )=W( I , 2 ,K j 
V(I,2,K)=V(I,3,K 
75  CONTINUE 


***  MODIFICATION  FOR  R=0.0 

DO  55  K=2 ,NK 
VY=0 . 0 
VX=0 . 0 
VZ=0.0 

DO  50  1=2, NI 

VY=VY+U ( I , 2 , K) *COS (XS ( I ) ) 
VM=VX-U( I , 2 , K) *SIN( XS ( I ) ) 

50  CONTINUE 

DO  51  1=2, NI 

VY=VY+V ( I , 3 , K)*SIM(XC( I) ) 
VX=VX+V ( I , 3 , K  *COS ( XC  I 
VZ=VZ+W(I ,2,K) 

51  CONTINUE 


C  ***  FIND  THE  VELOCITIES  AT  R=0.0 
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DO  52  1=1 ,NIP1 

U(I ,1 ,K)=(-VX*SIN(XS(I))+VY*COS(XS(I) ) )/NIMl 
V( I , 2 , K)=  (VX*COS(XC(I))+VY*SIN(XC(l)))/Nini 
W( I , 1 . K) =VZ/NIM1 
52  CONTINUE 
55  CONTINUE 


C  ***  THIS  IS  FOR  THE  CYLINDER  ONLY  (CYLIC  CONDITION) 

DO  76  J=1 , NJP1 
DO  76  K=1 , NKP 1 
U(l, J,K)=U(NI , J,K) 

U (NIP1 ,J,K)=U(2,J,K) 

V(l, J,K)=V(MI , J,K) 

V(NIP1,J,K)=V(2,J,K) 

W( 1 , J , K)=W(NI , J ,K) 

W(NIP1,J,K)=W(2,J,K) 

76  CONTINUE 

C  ***  THIS  FOR  SPHERE  ONLY 

DO  77  1=1 ,NIP1 
DO  77  J=1 , NJP1 
U(I,J,1)=U(I,J,2) 

V  I,J,1  =V  I,J,2 
W(I,J,2)=W(I, J,3) 

U(I, J,NKP1)=U(I,J,NK) 

V(I, J,NKP1)=V(I, J,NK) 

W ( I , J , NKP 1 ) = W ( I , J , NK ) 

77  CONTINUE 


IF  (NCHIP.EQ.O)  GOTO  116 

C  ***  RESET  THE  VELOCITY  INSIDE  OF  DECK 

DO  120  N=1 , NCHIP 
IB=ICHPB(M) 

IE=IB+NCHPI (N) -1 
JB=JCHPB(N) 

JE=JB+NCHPJ(N)-1 
KB=KCHPB(M) 

KE=KB+NCHPK(N) -1 
DO  109  I=IB , IE 
DO  109  J=JB , JE-1 
DO  109  K=KB , KE-1 
U(I , J,K)=0.0 
109  CONTINUE 

DO  118  I=IB , IE-1 
DO  118  J=JB , JE 
DO  118  K=KB,KE-1 
V(I,J ,K)=0.0 
118  CONTINUE 


DO  119  I=IB , IE-1 
DO  119  J=JB , JE-1 
DO  119  K=KB , KE 
W(I, J,K)=0.0 


119  CONTINUE 

120  CONTINUE 
116  CONTINUE 

C  a#########*################################ 


C  ***  RECALCULATE  THE  ERROR  SOURCE  AFTER  CORRECTIONS  OF  U,  V,  P 


SORSUM=0 . 
RESORM( ITER)=0 . 
DO  700  J=2 ,NJ 
JP1=J+1 


.".v  v  v.v  .v./ v, 


206 


on 


JM1=J-1 

DO  700  1=2 ,NI 

IP1=I+1 

IM1=I-1 

DO  700  K=2 ,NK 

KP1=K+1 

KM1=K-1 


C  CENTRAL  LENGTH  OF  THE  SCALAR  CONTROL  VOLUME 

DXP1=XL ( IP1 , J , K , 0 , 0 ) 

DXI  =XL(  I  ,  J ,  K ,  0 , 0  ) 

DXM1=XL ( IM1 ,  J  ,  K ,  0 , 0 ) 

DYP1=YL ( I , JP1 , K , 0 , 0 ) 

DYJ  =YL ( I ,  J  ,K , 0 , 0 } 

DYM1=YL ( I , JM1 ,  K ,  0 , 0 ) 

DZP1=ZL ( I , J , KP1 ,0,0) 

DZK  =ZL ( I ,  J  ,  K  ,0,0 
DZH1=ZL ( I , J , KM1 ,0,0) 

C  ***  SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

DXN=XL( I , JP1 , K, 0 , 2 ) 

DXS=XL ( I , J  ,K,0 , 2 ) 

DXF=XL ( I , J , KP1 ,0,3) 

DXB=XL (I , J , K  ,0,3) 

DYF=YL ( I , J , KP1 ,0,3) 

DYB=YL ( I , J , K  ,0,3) 

DYE=YL ( IP1 , J , K , 0 , 1 ) 

DYW=YL(I  , J , K , 0 , 1 ) 

DZE=ZL ( IP1 , J , K , 0 , 1 ) 

DZW=ZL  I  ,  J ,  K ,  0 , 1  j 
DZN=ZL  I,JP1,K,0,2 
DZS=ZL ( I , J  ,K,0,2) 

C  ***  DEFINE  AREA  OF  THE  CONTROL  VOLUME 

DXYF=DXF*DYF 

DXYB=DXB*DYB 

DYZE=DYE*DZE 

DYZW=DYW*DZW 

DZXN=DZN*DXN 

DZXS=DZS*DXS 

VOL=DXI*DYJ*DZK 

VOLDT=VOL/DTIME 


RN= 

R 

I ,  J,K 

*DYP1+R( I , JP1 , K 

*DYJ) 

/ 

DYP1+DYJ) 

RS= 

R< 

I ,  J ,  K  j 

*DYM1+R( I , JM1 , K 

*DYJ 

/ 

DYM1+DYJ ) 

RE= 

>R( 

I,J,K 

*DXP1+R(IP1 , J,K, 

*DXI 

/ 

DXPl+DXl) 

RW= 

R 

i ,  j  ,k| 

*DXM1+R(IH1,J,K' 

*DXI 

/ 

DXMl+DXl) 

RF= 

R 

I,J,K 

*DZP1+R ( I , J , KP1 

*DZK 

/ 

dzpi+dzk) 

RB= 

R 

I ,  J,K 

*DZM1+R(I , J,KM1 

}*DZK 

/ 

,dzmi+dzk) 

CN=RN*V( I , JP1 , K ) *DZXN 
CS=RS*V ( I , J  ,K)*DZXS 
CE=RE*U ( IP1 , J , K ) *DYZE 
CW=RW*U ( I  ,J,K  *DYZW 
CF=RF*W(l , J,KP1  *DXYF 
CB=RB*W(I , J,K  ) *DXYB 
C  SMP ( I , J , K)=-CE+CW-CN+CS-CF+CB 

SMP(I, J,K)=-(R(I, J,K)-ROD(I,J,K))*VOL/DTIME-CE+CW-CN+CS-CF+CB 

SORSUM  IS  ACTUAL  MASS  INCREASE  OR  DECREASE  FROM  CONTINUITY 
EQUATUON  ,  THIS  WILL  COMPARE  TO  SOURCE 

SORSUM=SORSUM+SMP (I , J ,K) 

C  ***  RESORM  IS  SUM  OF  THE  ABSOLUTE  VALUE  OF  SNP(I,J,K) 
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RESORM( ITER)=RESORM( ITER) +ABS (SMP( I , J , K) ) 
700  CONTINUE 
RETURN 
END 


SUBROUTINE  TRID(IST . JST.KST. ISP. JSP .KSP . PHI ) 

(2  k  kkk  k-kkkk-k  *********  kk  *AAx**x^  £kkk,xkkk*:kkk-KkkkmKkkkkkkkkkkkkkkkkkkk  kk 


k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  *  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  *  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k 

COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK,NKP1 ,NKM1 
&  , NIP2 , NJP2 , NKP2 , NA , NAP 1 , NANI , NB , N6P 1 , NBM1 , KRUN , NCHIP , NJRA , NWRP 

COMMON/BL36/AP (22 , 16,32) , AE(22 , 16 , 32} , AW(22 , 16 ,32) ,AN(22 , 16 , 32) , 

&  AS (22 ,16 ,32) ,AF (22 ,16,32 ) ,AB( 22, 16,32 ) , 

&  SP(22 , 16 .32) , SU(22 , 16 , 32 ) , RI (22 , 16 . 32) 

DIMENSION  A(99) ,B(99) ,C(99) ,PHI(22,16,32) 


GOTO  405 
ISTM1=IST-1 
A( ISTM1 )=0 . 

C ( ISTM1 )=0 . 

DO  100  J=JST, JSP 
DO  100  K=KST,KSP 
DO  101  I=IST , ISP 
A(I)=AE(I , J,K) 

B ( I ) =AW ( I ,  J ,  K ) 

C ( I )=AN ( I , J , K) *PHI ( I , J+l , K) +AS ( I , 

&  +AF(I,J,K)*PHI(I, J.K+1)+AB(I,, 
TERM=l./(AP(I,J,K)-B(lW(I-l>) 
A(I)=A(I)*TERM 
C(I)=(C(I)+B(I)*C(I-1 ) )*TERM 
IF  (ABS(A(I)) .LE.1.0E-70)  A(I)=0.0 
IF  (ABS(B(I)).LE.1.0E-70)  B(I)=0.0 
IF  ( ABS (C( I ) ) . LE.1.0E-70)  C(I)=0. 

101  CONTINUE 

PHI ( ISP , J , K)=C( ISP ) 

ISTA=IST+1 
DO  102  II=ISTA, ISP 
I=IST+ISP-II 
IP1=I+1 

PHI (I, J,K)=A(I)*PHI(IP1,J,K)+C(I) 

102  CONTINUE 
100  CONTINUE 


I, J,K)*PHI(I,J-1,K) 

I, J,K)*PHI(I,J,K-1)+SU(I,J,K) 


C  1=0.0 


DO  2000  J=JST, JSP 
DO  2000  K=KST, KSP 
PHI ( IST-1 , J , K )=PH 
PHI ( ISP+1 , J ,K)=PH 
2000  CONTINUE 


=KST . KSP 

,  J,K)=PHI(ISP, J,K) 
,J,K)=PHI(IST,J,K) 


JSTM1=JST-1 
A( JSTM1 )=0 . 

C( JSTM1 )=0 . 

DO  200  K=KST,KSP 
DO  200  I=IST , ISP 
DO  201  J=JST , JSP 
A( J)=AN( I , J , K) 

B(J)=AS(I ,J,K) 

C( J)=AE( I ,  J ,  K)*PHI  (1  +  1 ,  J , K)+AW(I , J,K)*PHI (1-1 ,  J ,K) 

&  +AF( I , J , K)*PHI ( I , J  ,K+1 )+AB( I , J,K)*PHI (I , J ,K-1 ) +SU(I , J ,K) 
TERH=1 ./(AP(I,J,K)-B(j)*A(J-l)) 

A(J)=A(J)*TERM 

C( J)=(C( J)+B( J)*C( J-l) )*TERM 


C(J)=(C(J)+B(J)*C(J 
IF  (ABS (A(J)).LE.l. 
IF  (ABS(B(J)) .LE.l . 
IF  (ABS(C(J)).LE.l. 
201  CONTINUE 

PHI(I,JSP,K)=C(JSP) 

JSTA=JST+1 

DO  202  JJ=JSTA, JSP 


.LE.1.0E-70) 
•LE.l. 0E-70 
.LE.1.0E-70 


A( J)=0 . 0 
B  J  =0.0 


C(J)=0.0 


■  .*»  , 


■*  *,•  %*  »,*  */  %*  •,*'**■ « '"v'V  v 


j  i  i  (  r  <-  r  i»  i  '■  a  mmr> ->  i  j  f  j  jamjc.  ^ 


£lw  *.'>0  •*.T«.W  V"  T-C^>OrV.''  - 1’ 


-■  wv w-j  w 


,»  v“v'r^  Y~.  w  v“,  'J’V 


yv  r;  -r',  rf-_'  v.  vw  «"  >  . 


J= JST+JSP- JJ 
JP1=J+1 

PHI (I , J , K)=A( J)*PHI (I , JP1 ,K)+C( J) 
202  CONTINUE 
200  CONTINUE 

DO  2001  J=JST , JSP 
DO  2001  K=KST ,KSP 
PHI ( IST-1 , J , K ) =PHI ( ISP , J , K) 

PHI ( ISP+1 , J , K)=PHI ( 1ST , J ,K) 

2001  CONTINUE 


KSTM1=KST-1 

A(KSTM1)=0. 

C(KSTM1)=0. 

DO  300  I=IST , ISP 
DO  300  J=JST , JSP 
DO  301  K=KST , KSP 
A(K)=AF ( I , J , K) 

B(K)=AB(l, J,K) 

C(K)=AE( I , J , K) *PHI (1+1 , J ,K )+AW( I , J , K)*PHI (1-1 , J,K) 

&  +AN ( I , J  K ) *PHI ( I , J+l , K ) +AS ( I , J , K) *PHI ( I , J- 1 , K) +SU (I , J , K) 

TERM=1./(AP(I,J,K)-B(K)*A(K-1)) 

A(K)=A(K) *TERM 
C(K)=(C(K)+3(K)*C(K-1) )*TERM 
IF  (ABS(A(K)).LE.1.0E-70)  A(K)=0.0 

B  K  =0.0 
C  K)=0.0 


'  .LE.1.0E-70 
i  .LE.1.0E-70 


IF  (ABS(B(K 
IF  (ABS(C(K 

301  CONTINUE 

PHI (I , J ,KSP)=C(KSP) 

KSTA=KST+1 

DO  302  KK=KSTA, KSP 

K=KST+KSP-KK 

KP1=K+1 

PHI(I,J,K)=A(K)*PHI(I,J,KP1)+C(K) 

302  CONTINUE 
300  CONTINUE 

DO  2002  J=JST , JSP 
DO  2002  K=KST. KSP 
PHI(IST-1,J,K  =PHI(ISP,J,K) 
PHI(ISP+l,J,K)=PHl(lST,J,K 
2002  CONTINUE 


GOTO  700 


4405  CONTINUE 
405  KSP1=KSP+1 
B (KSP1 )=0 . 
C(KSP1)=0. 

DO  600  II=IST , ISP 

I=IST+ISP-II 

DO  600  JJ=JST, JSP 

J=JST+ JSP- JJ 

DO  601  KK=KST,KSP 

K=KSP+KST-KK 

KP1=K+1 


601 


A (K)=AF ( I , J , K) 


B(K)=AB( I , J ,K) 
C(K)=AE(I,J,K) 


*|HI( 1+1 . J . K )+AW ( I, J ,  K ) *PHI ( I -1 , J , K) +AN ( I 


PHI  ( I ,  J+l ,  K )  +  AS  ( I  :  J  ,  K  J  *PHI  ( I ,  J  - 1  ,K)+SU ( I  ,'j  ,  k  j 
TERM=1./JAP(I,_J,K)-A(k!)*B(K+1)) 


)=B (K) *TERM 


IF 

(ABS 

IF 

(ABS 

IF 

(ABS 

CONTINUE 

. le . i . oE-vo ; 

.LE.1.0E-70 

.LE.1.0E-70 


A(K)=0 .0 
B  K}=0.0 
C  K  =0.0 


PHI ( I , J , KST )=C (KST ) 
KSTP1=KST+1 


.  J.K)* 


DO  602  K=KSTP1,KSP 
PHI (I,J,K)=B(K) *PHI (I,J,K-1)+C(K) 
602  CONTINUE 
600  CONTINUE 

DO  2003  J=JST , JSP 
DO  2003  K=KST.KSP 
PHI(IST-1 ,  J , K )=PHI ( ISP , J , K) 

.  ..  \J,K) 


PHI ( ISP+1 , J ,K)=PHI (1ST 


2003  CONTINUE 


JSP1=JSP+1 
B( JSP1 )=0 . 

C(JSP1)=0. 

DO  500  KK=KST ,KSP 

K=KST+KSP-KK 

DO  500  II=IST, ISP 

I=IST+ISP-II 

DO  501  J J=JST , JSP 

J=JSP+JST-JJ 

JP1=J+1 

A( J)=AN(I ,  J,K) 

B( T )=AS ( I , J,K) 

CtJ)=AE(I,J(K)*PHI(I+l,J,K)+AW(I,J,K)*PHI(I-l,J,K)+AF(I,J,K) 
<  PHI (I , J ,K+1 ;+AB(I < J , K; *PHI (I,J,K-l)+SU(I,J,Kj 


i  PHI(I,J,K+l;+AB(I ,J,K)*PHI 
TERM=1 ./ (AP(I,J,K)-A(J)*B(J+1) ) 
B(J)=B(J)*TERM 
C( J)=(C( J)+A(J)*C(J+1) )*TERM 


1 ,  J  ,K)‘ 


IF  (ABS (A( J) ) .LE.1.0E-70)  A(J)=0.0 
IF  (ABS (B ( J) ) . LE.1.0E-70)  B  J  =0 . 0 
IF  ( ABS (C ( J) ) . LE . 1 . 0E-70 )  C  J  =0.0 
501  CONTINUE 

PHI ( I , JST , K)=C ( JST ) 

JSTP1=JST+1 
DO  502  J=JSTP1 . JSP 
PHI ( I , J , K)=B( J)*PHI (1 , J-l ,K)+C( J) 
502  CONTINUE 
500  CONTINUE 

DO  2004  J=JST, JSP 
DO  2004  K=KST,KSP 
PHI (1ST- 1 , J ,K)=PHI (ISP ,  J  ,K) 

PHI (ISP+1, J,K)=PHI (1ST ,J,K 
2004  CONTINUE 


ISP1=ISP+1 
B( ISP1 )=0 . 
C(ISP1)=0. 

DO  400  JJ=JST , JSP 

J=JST+JSP- JJ 

DO  400  KK=KST,KSP 

K=KST+KSP-KK 

DO  401  II=IST, ISP 

I=ISP+IST-II 

IP1=I+1 

A(I)=AE(I,J,K0 
B  I  =AW  I,J,K  . 


C( I )=AN( I \ J ' K)*PHI (I. J+l , K)+AS ( I , J ,K) *PHI ( 


&  PHI'  (i  ; J  ;'K+I  )+AB  (i  *J  ,'k  )  *PHI  ( I  “j  K- 1  j+SU 

TERM=1./(AP(I,J,K)-A(I^*B(I+1)) 


TERM=1./(AP(I,J,K)-A(I)*B(I+D) 
B(I)=B(I)*TERM 

C(I)=(C(I)+A(I)*C(I+1))*TERM 
IF  (ABS  A (I ) J .LE.1.0E-70)  A(I)=0.0 
IF  (ABS(B  I  ) .LE.1.0E-70)  B  I  =0,0 
IF  (ABS(C(I)5 .LE.1.0E-70)  C(I)=0.0 
CONTINUE 

PHI ( 1ST , J , K)=C ( 1ST) 

ISTP1=IST+1 
DO  402  I=ISTP1 , ISP 
PHI (I,J,K)=B(I) *PHI (I-1,J,K)+C(I) 


I . J-l , K) 
U(I, J,K; 


+AF ( I , J, K) 


nnnnnnnnnnnnn 


402  CONTINUE 
400  CONTINUE 

DO  2005  J=JST , JSP 
DO  2005  K=KST , KSP 
PHI ( IST-1 , J ,K)=PHI (ISP , J,K 
PHI ( ISP+1 , J ,  K)=PHI (1ST , J , K 
2005  CONTINUE 


700  CONTINUE 
RETURN 
END 

£  **************************  A*****************************  **** 

BLOCK  DATA 

Q  ************************************************************ 

COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK,NKP1 ,MKM1 
&  , NIP2 , NJP2 , NKP2 , NA , NAP1 , NAM1 , NB , NBP1 , NBM1 , KRUN , NCHIP , NJRA , NWRP 

COMMON/BL12/  NWRITE ,NTAPE ,NTMAX0 , NTREAL , TIME , SORSUM, ITER 
C0MM0N/BL14/HC0EF , TIMF , CNT , ABTURB , BTURB , VISL , VISMAX , QCORRT , PHI , PM2 
COMMON/BL16/  CONST1 , CONST2 , C0NST3 , C0NST4 , CONST6 , NT , UO ,H , UGRT , BUOY , 
&  CPO , PRT , CONDO , VI SO , RHOO , HR , TR , TA , DTEMP ( TWRITE , TTAPE , TMAX , GC , RAIR 
DATA  NIP2,NIPl,NI,NIMl/23, 22,21, 20/ 

DATA  NJP2 ,NJP1 ,NJ,NJM1/17 ,16,15,14/ 

DATA  NKP2 ,NKP1 ,NK,NKHl/33 ,32,31,30/ 

DATA  NAP1 , NA ,NAM1 , NBP1 ,NB , NBM1/9 , 8,7,27,26,25/ 

DATA  UO , TA , PRT , RHOO , CP 0 , V I S  0 , NTMAXO / 

&  1.0, 555. 86, 1.0, 0.0714,0. 24, 1.56E-4,0/ 

DATA  HCOEF,TINF, CNT, ABTURB, BTURB/ 12. 0,1. 0,0. 2, 2. 0,1.0/ 

DATA  GC, RAIR/ 3 2. 17 ,53.34/ 

DATA  QCORRT, PM1/1. 0,0. 9/ 

END 


Q  ****************************************************************** 

SUBROUTINE  GRID 

Q  ***************************************************************** 

C0MM0N/R4/XC ( 93 ) ,YC(93) ,ZC(93) ,XS(93) ,YS(93) ,ZS(93) , 

&  DXXC(93) ,DYYC(93) ,D2ZC(93) ,DXXS(93) ,DYYS(93) ,DZZS(93) 

COMMON/BL1/DX , DY , DZ , VOL , DTIME , VOLDT , THOT , TCOOL , PI , Q 
COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ,NJP1 , N JM1 , NK , NKP1 , NKM1 
&  , NIP2 , N JP2 , NKP2 , NA , NAP1 , NAM1 , NB , NBP 1 , NBM1 , KRUN , NCHIP , NJRA , NWRP 

C  ***  RENERATION  OF  GRID 

PI=4 . *ATAN ( 1 . ) 

DX=1.0/ FLOAT (NIM1) 

C  DY=l./FLOAT(NJMl-2) 

DY=1. /FLOAT  NJM1-1) 

DZ=PI / FLOAT (NKMl -NB+NA- 2 ) 

DO  19  1=1 ,NIP2 
XS(I)=(I-2)*DX*2.0*PI 
19  CONTINUE 

XS(1)=-DX*2 .0*PI 
XS(2)=0.0 
XS(3)=0.01*2.0*PI 
DO  19  1=4,13 
XS(I)=(I-3)*DX*2.0*PI 
19  CONTINUE 

XS(14)=XS(13) 

XS<13)=XS(14)-0.01*2.0*PI 
DO  18  1=15, NIP1 
XS ( I )=XS ( 14)+( 1-14) *DX*2 . 0*PI 
18  CONTINUE 

XS(NIP2)=XS(NIP1)+XS(3) 

YS ( 1 )=0 . 000 
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noon 


YS{2)=0.025 
YS ( 3 ) =0 . 0  5 
DO  3  J=3 , NJ 
YS(J)=(J-2)*DY 
3  CONTINUE 

YS (NJP1 )=YS (NJ ) 

YS ( NJ  ) =YS ( NJP1 )  —  3./3./12./9. 
YS (NJP2 )=YS (NJP1 ) +3 . /8 . / 12 . /9 . 

DO  3  J=4,NJP2 
YS ( J)=( J-3 ) *DY 

3  CONTINUE 

DO  4  1=1 ,NIP1 
IP1=I+1 

DXXC( I )=XS ( IP1 ) -XS (I ) 

4  CONTINUE 

DXXC(NIP2)=DXXC(NIP1) 

DO  5  1=2 ,NIP2 
IM1=I-1 

DXXS (I )= . 5*( DXXC ( I ) +DXXC ( IM1 ) ) 

5  CONTINUE 

DXXS ( 1 ) =DXXS ( 2 ) 

DO  7  J=1,.M.TT,1 
JP1=J+1 

DYYC ( J ) =YS ( JP1 ) -YS ( J ) 

7  CONTINUE 

DYYC (NJP2 )=DYYC (NJP1 ) 

DO  3  J=2 ,NJP2 
JM1=J- 1 

DYYS(J)=.5*(DYYC(J)+DYYC(JM1) ) 

8  CONTINUE 

DYYS ( 1 ) =DYYS ( 2 ) 

DO  20  1=1 ,NI?2 

XC ( I ) =XS ( I ) +DXXC ( I ) / 2 . 0 

20  CONTINUE 

DO  21  J=1,NJP2 

YC( J)=YS(J)+DYYC(J)/2.0 

21  CONTINUE 


DO  9  K=4,NA 
ZS(K)=(K-3)*DZ 
9  CONTINUE 

DO  30  K=NBP1,NK 
ZS(K)=ZS(NA)+(K-NB)*DZ 

30  CONTINUE 

DO  31  K=NAP1 ,NB 
ZS (K)=PI/2 . 

31  CONTINUE 

ZS(1)=0.0 
ZS(2)=0 .05 
ZS ( 3 )=0 . 10 
ZS (NKP1 )=ZS (NKM1 ) 

ZS (NK)=ZS (NKP1 ) -0 . 05 
ZS (NKM1 )=ZS (NKP1 ) -0 . 10 
ZS (NKP2 )=ZS (NKP1 )+0 . 05 

ZS (NKP2 )=ZS (NK) 

ZS (NKP1 )=ZS (NKP2 ) -0 . 05 
ZS (NK)=ZS (NKP2 ) -0 . 10 


DO  10  K=1 , NKP1 

IF  (K.GE.NA.AND.K.LT.NB)  GOTO  10 
KP1=K+1 

DZZC ( K) =ZS (KP1 ) -ZS (K) 

10  CONTINUE 


0^0^ 


DO  32  K=MA , N8M1 
DZZC(K)=2.854/ (NB-NA) 

32  CONTINUE 

DZZC(NKP2)=DZZC(NKP1 ) 

DO  11  K=2 , NKP2 

IF  ( K . EQ . MA . AND . K . EQ . NB )  GOTO  11 
KM1=K-1 

DZZS ( K ) = . 5* ( DZZC ( K ) +DZZC (KM1 ) ) 

11  CONTINUE 

DZZS(1)=DZZS(2) 

DO  22  K=1 ,NKP2 

IF  ( K . GE . NA . AND . K . LT . NB )  GOTO  22 
ZC ( K ) =ZS ( K ) +DZZC (K ) /2 . 0 
22  CONTINUE 

DO  33  K=NA,NBN1 
ZC(K)=PI/2. 

33  CONTINUE 

IF  (YS(1) .LT.0.0)  YS ( 1 )=0 . 0 
IF  ( YC (1 ) .LT.0.0)  YC(1  =0.0 

PRTMT  * 


PRINT  * 
PRINT  * , 1 
PRINT  *, 1 


INPUT  COORDINATE  OF  THE  TANK  IN  THE  ORDER  OF  1 
I  XS  YS  ZS  XC  YC1 

ZC  DXXS  DYYS  DZZS  DXXC 

DZZC' 


DO  12  1=1 ,NKP2 

WRITE(6 , 102)  I  ,XS  ( I) , YS ( I ) ,ZS{I) , XC( I) , YC(I ) ,ZC(I)  , 
<  DXXS ( I ) , DYYS ( I ) , DZZS ( I }  , DXKC ( I ) , DYYC 


DXXC ( I ) , DYYC ( I ) , DZZC ( I ) 


&  DXXS (I ) , DYYS ( I ) , DZZS 

102  FORMAT (2X, 14 , 12 (2X, F8 . 5 ) ) 

12  CONTINUE 

RETURN 

END 


Q  *********************** 

FUNCTION  XL(I.J.K.M.N) 

C  *********************** 

C**************************************************************** 

C  WHEN  M  OR  N  =  1  THEN  SHIFT  CELL  IN  THE  NEG  X  DIRECTION  ONE* 
C  HALF  CELL  (STAGGERED  CELL)  * 

C  WHEN  M  OR  N  =  2  THEN  SHIFT  CELL  IN  THE  NEG  Y  DIRECTION  ONE* 


C  HALF  CELL  (STAGGERED  CELL)  * 
C  WHEN  M  OR  N  =  3  THEN  SHIFT  CELL  IN  THE  NEG  Z  DIRECTION  ONE* 
C  HALF  CELL  (STAGGERED  CELL)  * 
C  WHEN  M  =  N  =  1  THEN  SHIFT  CELL  IN  THE  NEG  X  DIRECTION  ONE* 
C  WHOLE  CELL  * 
C  WHEN  M  =  N  =  2  THEN  SHIFT  CELL  IN  THE  NEG  Y  DIRECTION  ONE* 
C  WHOLE  CELL  * 
C  WHEN  M  =  N  =  3  THEN  SHIFT  CELL  IN  THE  NEG  Z  DIRECTION  ONE* 
C  ,  WHOLE  CELL  * 

C**************************************************************** 


COMMON/R4/XC(93) ,YC(93).ZC(93) ,XS(93) , YS (93) , ZS (93 ) 
&  ,  %  DXXC(93 ) , DYYC(93 ) , DZZC ( 93 ) , DXXS (93 ) , DYYS ( 

X1=XC(I ) 

X2=YC(J) 

X3=ZC(K) 

DXL=DXXC ( I ) 

IF(M.EQ.N)  GOTO  100 


93) ,DZZS(93) 


IF(M.EQ.l.OR.N.EQ.l)  Xl= 
IF  M.EQ.l.OR.N.EQ.l  DXL 
IF(M.EQ.2.0R.N.EQ.2)  X2= 
IF(M.EQ.3.0R.N.EQ.3)  X3= 
GOTO  1000 

100  IF(M.EQ.l)  X1=XC(I-1) 

IF(M.EQ.l)  DXL=DXXC( 1-1 ) 
IF(M.EQ.2)  X2=YC( J-l) 


X1=XS(I) 
DXL=DXXS ( I ) 
X2=YS ( J) 
X3=ZS(K) 


IF(M.EQ.3)  X3=ZC(K-1) 
1000  CONTINUE 

XL=X2*SIN(X3' *DXL 

RETURN 

END 


FUNCTION  YL(I. J.K.M.N) 

Q  ^***5*f***^**^c5lr*^^?t^?c*x^ 

Qkkkkkk  kkkkkkkk  kkkkkkk  kkkkkk  kkkkkkkk  kkkkkkkkkkkk  kkkk  k  kk  kkkk  kkkkkk 

C  WHEN  M  OR  N  =  1  THEN  SHIFT  CELL  IN  THE  NEG  X  DIRECTION  ONE* 

C  HALF  CELL  (STAGGERED  CELL)  * 

C  WHEN  M  OR  N  =  2  THEN  SHIFT  CELL  IN  THE  NEG  Y  DIRECTION  ONE* 

C  HALF  CELL  (STAGGERED  CELL)  * 

C  WHEN  M  OR  N  =  3  THEN  SHIFT  CELL  IN  THE  NEG  Z  DIRECTION  ONE* 

C  HALF  CELL  (STAGGERED  CELL)  * 

C  WHEN  M  =  N  =  1  THEN  SHIFT  CELL  IN  THE  NEG  X  DIRECTION  ONE* 

C  WHOLE  CELL  * 

C  WHEN  M  =  N  =  2  THEN  SHIFT  CELL  IN  THE  NEG  Y  DIRECTION  ONE* 

C  WHOLE  CELL  * 

C  WHEN  M  =  N  =  3  THEN  SHIFT  CELL  IN  THE  NEG  Z  DIRECTION  ONE* 

C  WHOLE  CELL  * 

Qkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

COMMON / R4 / XC ( 9 3 ) ,YC(93) ,ZC(93) ,XS(93) ,YS(93) ,ZS(93) , 

&  DXXC(93) ,DYYC(93) ,DZZC(93) ,DXXS(93) ,DYYS(93) ,DZZS(93) 

X1=XC(I) 

X2=YC( J) 

X3=ZC(K) 

DYL=DYYC( J) 

IF (M.EQ.N)  GOTO  100 


I F (M . EQ . 2 . OR . N . EQ . 2 )  X2=YS(J) 
IF(M . EQ . 2 .OR .N . EQ .  2 )  DYL=DYYS( J) 
IF (M. EQ . 1 .OR . N . EQ . 1 )  X1=XS(I) 
IF(M.EQ.3.0R.N.EQ.3)  X3=ZS(K) 
GOTO  1000 

100  IF(M.EQ.2)  X2=YC( J-l ) 

IF (M .EQ . 2 )  DYL=DYYC(J-1) 
IF(M.EQ.l)  X1=XC(I-1) 

IF(M.EQ.3)  X3=ZC(K-1) 

1000  CONTINUE 

YL=1 . 00*DYL 

RETURN 

END 


c 

C  WHEN  M  OR  N  =  1  THEN  SHIFT  CELL  IN  THE  NEG  X  DIRECTION  ONE* 

C  HALF  CELL  (STAGGERED  CELL)  * 

C  WHEN  M  OR  N  =  2  THEN  SHIFT  CELL  IN  THE  NEG  Y  DIRECTION  ONE* 

C  HALF  CELL  (STAGGERED  CELL)  * 

C  WHEN  M  OR  N  =  3  THEN  SHIFT  CELL  IN  THE  NEG  Z  DIRECTION  ONE* 

C  HALF  CELL  (STAGGERED  CELL)  * 

C  WHEN  M  =  N  =  1  THEN  SHIFT  CELL  IN  THE  NEG  X  DIRECTION  ONE* 

C  WHOLE  CELL  * 

C  WHEN  M  =  N  =  2  THEN  SHIFT  CELL  IN  THE  NEG  Y  DIRECTION  ONE* 

C  WHOLE  CELL  * 

C  WHEN  M  =  N  =  3  THEN  SHIFT  CELL  IN  THE  NEG  Z  DIRECTION  ONE* 

C  WHOLE  CELL  * 

c**************************************************************** 

C0MM0N/R4/XC (93) ,YC(93) ,ZC(93) ,XS(93) ,YS(93) ,ZS(93) , 

&  DXXC(93 ) , DYYC (93 ) , DZZC ( 93 ) , DXXS ( 93 ) ,DYYS (93 ) ,DZZS(93) 

COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK,NKP1 ,NKM1 
&  , NIP2 . NJP2 ,NKP2 ,NA,NAP1 , NANI , NB , NBP1 , NBM1 , KRUN , NCHIP , NJRA , NWRP 

X1=XC(I) 

X2=YC ( J) 

X3=ZC(K) 
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non 


DZL=DZZC(K) 

IF (M.EQ.N)  GOTO  100 

IF  { M .  EQ .  2 .  OR .  II .  EQ .  2 )  X2=YS(J) 
IF(M.EQ.l.OR.N.EQ.l)  X1=XS(I) 
IF(M.E0.3 .OR.N.EQ.3)  GOTO  200 
GOTO  10OO 

200  CONTINUE 

IF  (H.EQ.NA. OR. M.EQ.NB)  GOTO  2000 
X3=Z5 (K) 

DZL=D22S (K) 

GOTO  1000 

100  IF(M.EQ.3)  X3=ZC(K-1) 

IF(M.EQ.3)  DZL=DZZC(K-1) 

IF (M.EQ.2)  X2=YC( J-l ) 

IF(M.EQ.l)  X1=XC(I-1) 

1000  CONTINUE 

ZL=X2*DZL 
GOTO  300 
2000  CONTINUE 

DZL1=DZ2C (K-l ) 

DZL2=DZ2C(K) 

IF  (M.EQ.NB  DZL1=DZZC(K) 

IF  (M.EQ.NB)  DZL2=DZZC (K-l ) 
ZL=(X2*DZLl+DZL2)/2 . 

300  CONTiNUE 
RETURN 
END 
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k  k  k  k  kk  k  k  k  k  k  k  k  k  k  k  k  *  k  k  kk  k  k  k  *  * 

FUNCTION  SILIN(V1.V2.D1.D2) 

kkkkkkkkkkkkkkkkkkkkk-xkk'xkk 


IF  (D1 . EQ . 0 . 0 .AND . D2 . EQ .  0 . 0 
IF  (D1.EQ.0.0.AND.D2.EQ.0.0 
SILIN=(V1*D2+V2*D1)/(D1+D2 
RETURN 
END 


D1=0 . 1 
D2=0 . 1 


C  ********************************************** 

FUNCTION  BILIN(V1V2/D1.D2.V3/V4/D3,D4/D5.D6) 

Q  kkkkkkkkkkkkkkkkkk'Kkk-kkk-Akk-Kkkkkk'Kkk-Kkk-xkk-Kkk'K 

V12=(V1*D2+V2*D1 )/ (D1+D2 ) 

V34= ( V3 *D4+V4*D3 ) / ( D3+D4 ) 

BILIN=(V12*D6+V34*D5 )/ (D5+D6) 

END 


^  ****************** 

SUBROUTINE  STRESS 

Q  kkkkkkkkkkkkkkkkkk 

C0MM0N/R4/XC ( 93 ) ,YC(93) ,ZC(93) ,XS(93) ,YS(93) ,ZS(93) , 

&  DXXC(93) ,DYYC(93) ,DZZC(93) ,DXXS(93) ,DYYS(93) ,DZZS(93) 

COMMON/BLl/DX, DY, D2 ,  VOL , DTIME , VOLDT , THOT , TCOOL ,  PI  ,Q 
COMMON/BL7/NI ,NIP1 , NIM1 ,NJ , NJP1 , NJM1 , NK ,NKP1 , NKM1 
&  , NIP2 , NJP2 , NKP2 , NA , NAP1 , NANI , NB , NBP1 , NBM1 , KRUN , NCHIP , NJRA , NWRP 

COMMON/BL20/SIG11 ( 22,16,32) ,SIG12(22 ,16,321 ,SIG22{22, 16, 32) 

&  ,SIG13(22.16,32) , SIG23 ( 22 , 16 , 32) , SIG33 ( 22 , 16 , 32) 

COMMON/BL22/ ICHPB ( 10) , NCHPI ( 10 ) , JCHPB ( 10 ) ,NCHPJ ( 10 ) ,KCHPB(10) , 

&  NCHPK( 10 ) , TCHP (10) , CPS ( 10 ) , CONS ( 10 ) 

COMMON/BL32/  T ( 22 , 16 , 32 ) , R(22 , 16 , 32 ) , P ( 22 , 16 , 32 ) 

&  ,C(22,16 ,32) ,U(22,16,32) ,V(22,16,32) ,W( 22, 16,32) 

COMMON/BL37/  VIS ( 22 , 16 , 32) ,COND( 22 , 16 , 32) ,NOD(22 , 16 , 32) ,RWALL(560) 
&  , CPM( 22 ,16,32) ,HSZ(3 , 2 ) ,NHSZ (22 ,lb,32),RESORM(93) 

DO  100  K=2 ,NK 

KP2=K+2 

KP1=K+1 


1 


V 

5 


3 


*  J 


3 


KM1=K-1 
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V 

V 

V 


% 


KM2=K-2 
DO  100  J=2,MJ 
JP2=J-'-2 
JP1=J+1 
JM1=J-1 
JH2=J-2 
DO  100  1=2, NI 
IP2=I+2 
IP1=I+1 
1111=1-1 
1112=1-2 


CENTRAL  LENGTH  OF  THE  SCALAR  CONTROL  VOLUME 


DXP1=XL( IP1 , J , K , 0 , 0 ) 

DXI  =XL  I  , J ,K ,0 , 0) 

DXM1=XL(IM1 , J , K, 0 , 0 ) 

DYP1=YL(I , JP1 ,K,0 ,0) 

DYJ  =YL(I , J  ,  K ,  0 , 0 ) 

DYM1=YL ( I , JM1 ,  K ,  0 , 0 ) 

DZP1=ZL ( I , J , KP1 ,0,0) 

DZK  =ZL( I , J , K  ,0,0 
DZM1=ZL(I,J, Kill, 0,0) 

SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 


DXN=XL ( I , JP 1 , K , 0 , 2 ) 

DXS=XL ( I , J  ,  K ,  0 , 2 ) 

DXF=XL ( I , J , KP1 ,0,3) 

DXB=XL ( I ,  J ,  K  ,0,3) 

DYF=YL ( I , J , KP1 , 0 , 3 ) 

DYB=YL ( I ,  J ,  K  ,0,3) 

DYE=YL ( IP1 , J , K , 0 , 1 ) 

DYW=YL(I  ,  J ,  K ,  0 , 1 ) 

DZE=ZL (IP1,J,K,0,1) 

DZW=ZL ( I  ,  J ,  K ,  0 , 1 ) 

DZN=ZL( I , JP1 ,K ,0 , 2) 

DZS=ZL(I,J  ,K,0 ,2) 

CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME  FOR  T 

DXEE=XL ( I?2 , J , K , 0 , 1 ) 

DXE  =XL( IP1 ,  J  ,  K ,  0 , 1 ) 

DXW  =XL( I  ,  J  ,  K ,  0 , 1 ) 

DXWW=XL ( IM1 ,  J ,  K ,  0 , 1 ) 

DYNN=YL ( I , JP2 , K , 0 , 2 ) 

DYN  =YL( I , JP1 , K , 0 , 2 ) 

DYS  =YL(I,J  ,  K ,  0 , 2  j 
DYSS=YL ( I , JM1 ,  K ,  0 , 2 ) 

DZFF=ZL( I , J , KP2 ,0,3) 

DZF  =ZL( I , J , KP1 , 0 , 3 ) 

DZB  =ZL( I , J , K  ,0,3) 

DZBB=ZL ( I , J , KM1 ,0,3) 

UBAR=0.5*(U(IP1,J,K)+U(I,J,K)) 

VBAR=0.5*(V(I , JP1 ,K)+V(I, J,K  ) 
WBAR=0.5*(W(I,J,KP1)+W(I,J,K)) 

DXY=DXI*DYJ 

DYZ=DYJ*DZK 

DZX=DZK*DXI 


SIGll(I,J,K)=2.*VIS(I,J,K)*((U(IPl,J,K)-U(I,JfK))/DXI 
+VBAR* ( DXN-DXS ) / DXY 


+VBAR* ( DXN-DXS ) / DXY 
+WBAR*(DXF-DXB)/DZX) 


SIG22(I,J,K)=2.*VIS(I,J,K)*( (V(I , JP1 ,K)-V(I , J,K) )/DYJ 
+WBAR* ( DYF- DYB ) / DYZ 


+UBAR* ( DYE - DYW ) / DXY ) 


SIG33(I,J,K)=2.*VIS(I,J,K)*((W(I,J,KP1)-W(I,J,K)) /DZK 
+UBAR*(DZE-DZW)/DZX 


'm.tl. mjf.i*.  M  jmJlf.m. 


n  o  no 


&  +VBAR*(DZN-DZS)/DYZ) 

100  CONTINUE 

DO  200  K=2 ,NKP1 
KP2=K+2 
KP1=K+1 
KH1=K- 1 
KII2=K-2 

DO  200  J=2,NJP1 

JP2=J+2 

JP1=J+1 

JH1=J-1 

JM2=J-2 

DO  200  1=2 ,NIP1 

IP2=I+2 

IP1=I+1 

IH1=I-1 

IM2=I-2 


•k-k'k-k 


FOLLOWING  DX,  DY,  DZ,  ARE  BASED  ON  THE  LOCAL  CONTROL 
VOLUME  FOR  SIG12 


IF  (J.EC 

) . 2 )  GOTO  300 

DXN=XL( 

II, J  ,  K ,  1 , 0 ) 

DXS=XL 1 

I , JM1 , K , 1 , 0 

DYE=YLl 

I  ,  J  ,  K ,  2 , 0 ) 

DYW=YL ( 

IM1 ,  J ,  K ,  2 , 0 ) 

DXI=XL ( 

I  , J , K, 1 , 2 ) 

DYJ=YL< 

II  , J , K, 2 , 1 ) 

DYN=YL ( 

II, J  , K , 1 , 0 ) 

DYS=YL( 

I , JM1 , K , 1 , 0  ) 

DXE=XL ( 

I  ,  J ,  K ,  2 , 0  j 

DXW=XL ( 

I IM1 , J , K , 2 , 0 ) 

UBAR=SILIN(U( I , J ,K) 
VBAR=SILIN( V( I , J , K) 

VIS12=BILIN(VIS(I 
&  VIS ( IM1 


, V ( IM1 
,J,K) ,VIS(I 


Ml  ,K) , DYN , DYS ) 
, J,K) , DXE, DXW) 


_ K), 

VIS ( IM1 , JM1 , K) ,  1 


,  JM1 


,  DYN , DYS , 

DYN, DYS,  DXE , DXW) 

e  -  -  VIS12* ( (V(I ,J,K)-V(IM1,J,K) )/DXI 

&  -VEAR* (DYE-DYW) /  (DXI*DYJ) ) 

SIG12(I,J,K)»SIG12(I,J,K)+VIS12*((U(I,J,K)-U(I/JM1,K))/DYJ 


SIG12(I , J,K)= 


-UBAR* (DXN-DXS ) /  (DXI*DYJ) ) 

300  CONTINUE 

****  FOLLOWING  DX,  DY,  DZ,  ARE  BASED  ON  THE  LOCAL  CONTROL 
VOLUME  FOR  SIG13 

DXF=XL(I , J,K  ,1,0 
DXB=XL ( I , J , KM1 ,1,0 
DZE=ZL ( I  , J , K , 3 , 0 
DZW=ZL ( IM1 , J , K , 3 , 0 
DXI=XL( I  , J , K , 1 , 3 
DZK=ZL(I  , J , K, 3 , 1 

DZF=ZL ( I , J , K  ,1,0 
DZB=ZL ( I , J , KM1 ,1,0 
DXE=XL ( I  , J , K , 3 , 0 
DXW=XL ( IM1 , J , K , 3 , 0 ' 

IF  ( DZF . EQ . 0 . 0 . OR . DZB . EQ , 0 . 0 . OR . DZE . EO . 0 . 0 . OR . DZW . EQ . 0 . 0 ) 
&  WRITE  (6,*)  I , J  K,  DZF, DZB. DZE, DZW 

I  O  T  T  T  %  t  /  T 1  /  •*<  -T  t  r  \  .*/■*■  —  \  _  _  — 


uct  ,vca  .UC.'H 

UBAR=SILIN(U(I,J,K) ,U(I,J,KHl) , DZF, DZB) 
WBAR=SILIN( W( I , J ,K) ,W(IM1,J,K) , DXE, DXW ) 

VIS13=BILIN(VIS(I 


,  J  , K)  , VIS ( I  ,  J, Kill)  ,DZF, DZB, 

,  J ,  K )  ,  VIS  ( IM1 ,  J  ,  Kill )  ,  DZF ,  DZB  ,  DXE  ,  DXW ) 

„  ....  VIS13*((W(I,J,K)-W(IM1,J,K) )/DXI 

*  ,  -WBAR*(DZE-DZW)/(DXI*DZK)  ) 

SIG13(I,J,K)=SIG13(I,J,K)+VIS13*((U(I, J,K)-U(I. J,KM1))/DZK 
&  -UBAR*(DXF-DXB)/ (DXI^DZK) ) 


&  VIS(IM1 

SIG13(I , J,K)= 


(2  **  kk 

c 


FOLLOWING  DX,  DY,  D2 ,  ARE  3ASED  ON  THE  LOCAL  CONTROL 
VOLUME  FOR  SIG22 

DZN=ZL(I,J  , K , 3 , 0 ) 

DZS=ZL  I, JM1,K,3,0) 

DYF=YL ( I , J  ,K  ,2,0) 

DY3=YL ( I ,  J  , KKI ,2,0) 

DZK=ZL  I , J , K , 3 , 2 
DY J=YL ( I , J , K , 2 , 3 ) 

DYN=YL ( I , J  , K , 3 , 0 ) 

DYS=YL(I,  Jill, K, 3,0) 

DZF=ZL ( I , J , K  ,2,0) 

DZB=ZL  ( I ,  J  ,  Kill ,  2 , 0 ) 

WBAR=SILIN( W ( I , J , K) ,W(I,JM1,K) , DYN , DYS ) 

VBAR=SILIN(V ( I ,  J ,  K)  ,  V  ( I ,  J  ,  Kill )  ,  DZF ,  DZB ) 

VIS23=BILIN(VIS(I  , J , K) , VIS ( I , JM1 , K  ), DYN, DYS, 

&  VIS(I, J,KM1),VIS(I, Jill, Kill)  , DYN, DYS,  DZF, DZB) 

SIG23(I,  J,K)=  VIS23*(  (V(I ,  J  ,K) -V(  I .  J ,  KM1 ) ) /DZK 

&  -VBAR* (DYF-DYB ) / (DZK*DYJ ) ) 

SIG23(I , J ,K)=SIG23(I , J ,K)+VIS23*( iW(I , J , K) -W( I .  Jill , K) ) /DYJ 
&  -WBAR*(DZN-DZS)/(DZK*DYJ)) 


200  CONTINUE 

DO  110  1=1 , NIP1 
DO  110  J=1 , NJP1 

C  WRITE  (6,998)  I , J , SIGH ( I , J , 5) , SIG12 ( I , J , 5 ) , SIG13 ( I , J , 5 ) , 
C  &  SIG22(I,J,5) .SIG23(I, J,5),SIG33(I,J,5) 

998  FORMAT  (2X , 14 , IX , 14 , 6 ( IX , Ell . 4 ) ) 

110  CONTINUE 
RETURN 
END 


•k-k-k  kkkkkkkkkkkkk-^-kkkkkkkk'kkkkkkk'kiKk^k-k'kkkkkkkkk  k^-xk  kkkkkkkkk-k-k'kk'kkk-k  k  k  kk  k  k  kk  k 

SUBROUTINE  CALO(LL) 

***  **********  A  *******A  *************  A********  *******  ********************* 

COMMON/ BL1 /DX , DY , DZ , VOL , DTIME , VOLDT , THOT , TCOOL , PI , Q 
COMMON/BL12/  NWRITE ,NTAPE ,NTMAX0 , NTREAL , TIME , SORSUM , ITER 
COMMON/ BL14/HC0EF , TINF , CNT , ABTURB , BTURB , VISL , VISMAX , QCORRT , PM1 , PM2 
C0MM0N/BL16/  CONST1 , CONST2 , CONST3 , C0NST4 , CONST6 ,NT , UO ,H , UGRT , BUOY , 

&  CPO , PRT , CONDO , VISO , RHOO , HR . TR , TA , DTEMP , TWRITE , TTAPE , TMAX , GC , RAIR 
COMMON/ BL34/  HEIGHT (22 , 16 , 32 ) , REQ( 22 , 16 , 32) , 

&  SMP(22 , 16,32) , SMPP (22, 16, 32), PP( 22, 16, 32) , 

&  DU (22, 16, 32), DV (22, 16, 32), DW (22, 16, 32) 

COMMON/BL39/ALEW , PCURVE , CONSRA , PCURM1 , PSOUTH , QCORR , PERROR 

C  ***  IN  MANY  OF  THE  FOLLOWING  LINES  A  TEMPORARY  CORRECTION  FOR 
C  *  ADJUSTING  QQ  TO  AGREE  WITH  THE  PRESSURE  HAS  BEEN  APPLIED. 

XTIME=TIME*H/UO 

IF  (  LL  .EQ.  1)  THEN 

IF  (XTIME.LT. 23.1)  THEN 

PCURVE=9 . 789522E-5*XTIME**2-2 . 388310E-6*XTIME**3+ 

&  REO( 10 ,9,16) 

DPDT  =9.789522E-5*XTIME*2-2.388310E-6*XTIME**2*3 
ELSE 

PCURVE=0 . 0052+ . 81264E-3*XTIME- . 22604E-5*XTIME**2+ . 27262E-8*XTIME** 

&  3- . 115621E-11*XTIME**4+REQ( 10 ,9,16) 

DPDT= .81264E-3-. 22604E-5*XTIME*2+ . 27262E-8*XTIME** 

&  2*3.0-. 115621E-11*XTIME**3*4 

END  IF 

QQ=1 . 0E8*DPDT 
Q=QQ*3. 4134/60. /60. 

Q=Q*QCORRT 

enaif 


if  (LL  .eq.  2  )  then 

THIS  USES  A  CURVE  FIT  THROUGH  THE  BURNRATE  DATA  GIVEN  BY  NRL 
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ITEST  =  0 

BURNR1=  5.4576743  +0 . 1S815346*XTIME- . 20153996E-02*XTIME**2 
SURNR2=  -1.3116737  +  .  331 53595*XTIME- .  7342952E-03*XTIME**2 
&  +. 50945510E-06*XTIME**3 

IF  (XT I ME  .LT.  100)  THEM 

BURIIR=  BURNR2  +  1 . 3117-  .  013117*XTIME 
ELSE 

BURMR  =  BURNR2 
END  IF 

IF (XTIME  .LE.  300)  GO  TO  60 

IF(BURNR2  .LT.  BURNR1 )  THEM 

BURMR  =  (BURNR1  +  BURNR2)  /  2 
GO  TO  60 

ELSE 

IF  (  XTIME  .LT.  600.0)  GO  TO  60 
IF  (ITEST  .EQ.  0)  THEM 
BURNR3  =  BURNR2 
ITEST  =  1 
END  IF 

BURMR  =  BURMR3 
END  IF 

60  Q  =  BURNR*2 . 2046 *9612. /36Q0. 

CC  THIS  GIVES  Q  IN  BTU/SEC 
END  IF 

65  CONTINUE 
RETURN 
END 


C  . . 

XX*  XXXXXrt*Xxxxxx*XXx*xXXXXXX****X***XXXXxXX*XXX*X*xXXXXXxXXxXxXXXXx*XAX 

SUBROUTINE  RADHT ( T4WALL , VFMXC ) 

XXX  **********iiJt********X********x**********************************xjt** 

COMMON/BL7/NI , NIP1 , NIM1 , NJ , NJP1 , NJM1 , NK , NKP1 , NKM1 
&  ,NIP2,NJP2,NK?2,NA,NAP1 ,NAM1 ,NB,NBP1 ,NBM1 , KRUN , NCHIP , NJRA , NWRP 
COMMON/ BL16/  CONST1 , CONST2 , CONST3 , C0NST4 , CON5T6 , NT , UO , H , UGRT , BUOY , 
&  CPO , PRT , CONDO , VISO , RHOO , HR , TR , TA , DTEMP , TWRITE , TTAPE , TMAX , GC , RAIR 
COMMON/BL32/  T ( 22 , 16 , 32) , R ( 22 , 16 , 32) , P ( 22 , 16 , 32) 

&  ,C (22, 16,32) ,U(22,16,32) ,V(22, 16,32) ,W(22,16,32) 

COMMON/BL37/  VIS ( 22 , 16 , 32 ) , COND ( 22 , 16 , 32 ) , NOD ( 22 , 16 , 32) , RWALL ( 560 ) 
&  ,CPM(22,16,32) ,HSZ(3,2) ,NHSZ( 22 , 16 , 32 ) ,RESORM(93) 

COMMON / BL3  9 / ALEW , PCURVE , CONSRA , PCURM1 , PSOUTH , QCORR , PERROR 

DIMENSION  VFMXC ( 579 , 579 ) ,T4WALL ( 579 ) 

DO  4010  K=3 , NKM1 
DO  4010  1=2, NI 
II=(K-3)*(NI-1)+I-1 

T4WALL (II )=CONSRA*T (I,NJRA,K)*T(I ,NJRA ,K)*T(I,NJRA,K)*T(I, NJRA , K ) 

4010  CONTINUE 

C  RADIATION  FROM  THE  FIRE  TO  THE  WALL 

DO  4011  J=3 , 9 
JJ=561+9-J 

AVT=0 .25*(T(16,J,16)+T(17.J,16)+T(16,J,17)+T(17,J,17)) 

T4WALL ( J J ) =CONSRA"AVT*AVT*AVT*AVT 

4011  CONTINUE 
C 

DO  4012  J=3 , 14 
J J=563+J-3 

AVT=0 .25y';T(6,J,16)+T(7,J16)+T(6,J,17)+T(7,J,17)) 

T4WALL ( J. ) =CONSRA*AVT*AVTiAVT*AVT 

4012  CONTINUE 
C 

DO  4020  1=1,560 
RWALL ( I ) =0 . 0 
DO  4020  J=1 , 579 

RWALL ( I ) =RWALL ( I ) +VFMXC ( I , J) *T4WALL ( J ) 
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4020  CONTINUE 
RETURN 
END 


C 

kkk 


SUBROUTINE  GLOBE 

***  ***XKX)(*>!K*^**^^X**********************************I'*****''*''’'^*':*:»^* 

*  THIS  SUBROUTINE  CALCULATES  THE  GLOBAL  PRESSURE  CORRECTION,  * 

*  WHEREBY  THE  PRESSURE  MATRIX  IS  UPDATED. 

*  VARIABLES  USED  ARE:  * 

*  SUNT  =  SUM  OF  TEMPERATURES  * 

*  SUMPT  =  SUM  OF  PRESSURE  OVER  TEMPERATURE  * 

*  SUMPET  =  SUM  OF  EQUILIBRIUM  PRESSURE  OVER  TEMP* 

*  UGRT  =  CONSTANT 

*  PCORR  =  PRESSURE  CORRECTION  * 

********* *************************************************************** 


COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK,NKP1 , NKM1 
&  ,NIP2,NJP2 ,NKP2 , NA ,NAP1 , NAM1 ,NB,NBP1 , NBM1 , KRUN , NCHIP , NJRA , NWRP 
COMMON/BL16/  CONST1 , CONST2 , CONST3 , C0NST4 , COMST6 , NT , UO ,H , UGRT , BUOY , 
&  CPO , PRT , CONDO , VISO , RHOO ,HR , TR , TA , DTEMP , TWRITE . TTAPE , TMAX , GC , RAIR 
COMMON/ BL3 2/  T ( 22 , 16 , 32) , R ( 22 , 16 , 32) , P ( 22 , 16 , 32) 

&  ,0(22,16,32) ,U(22,16,32) ,V(22,16,32),W(22,16,32) 

COMMON/BL34/  HEIGHT ( 22 , 16 , 32 ) , REQ (22 , 16 , 32) , 

&  SMP(22 , 16,32 ) , SMPP(22 ,16,32) , PP ( 22 , 16 , 32 )  , 

&  DU(22,16,32) ,DV(22, 16,32) ,DW(22 , 16 , 32) 

COMMON/BL37/  VIS (22 , 16 , 32 ) , COND ( 22 , 16 , 32 ) , NOD ( 22 , 16 , 32) , RWALL ( 560 ) 
&  , CPM(22 ,16,32) ,HSZ(3 , 2) ,NHSZ ( 22 , 16 , 32 ) , R£S0RM(93 ) 


SUMT=0 - 
SUMPT=C . 

SUMPET=0 . 

DO  370  1=2, NI 
DO  370  J=2 ,NJ 
DO  370  K=2,NK 

IF  (NOD (I , J,K) . EQ.l)  GOTO  370 
DXI=XL(I,J,K, 0,0,0) 

DYJ=YL  I, J,K, 0,0,0 
DZK=ZL(I,J,K, 0,0,0) 

VOL=DXI*DYJ*DZK 
SUMT=SUMT+1 . /T ( I , J , K) *VOL 
SUMPT=SUMPT+P (I,J,K)/T(I.J,K) *VOL 
SUMPET=SUMPET+REQ (I,J,K)*(1./1.0-1./T(I,J,K)) *VOL 

370  CONTINUE 

SUMPET=SUMPET/UGRT 
PCORR= ( SUMPET-SUMPT ) /SUMT 
PCORRN=PCORR 

DO  371  1=1 ,NIP1 
DO  371  J=1,NJP1 
DO  371  K=1 ,NKP1 
P(I , J,K)=P(I , J,K)+PCORRN 

371  CONTINUE 

RETURN 

END 


C 

kkk 


SUBROUTINE  SOLCON 

******************************************************************* 


C0MM0N/BL7/NI ,NIP1 ,NIM1 ,NJ,NJP1 , NJM1 ,MK,NKP1 ,NKM1 
&  ,NIP2,NJP2 ,NKP2 , NA , NAP1 , NAM1 ,NB ,NBP1 ,NBM1 , KRUN, NCHIP, NJRA, NWRP 
COMMON/ BL 12/  NWRITE , NT APE , NTMAXO , NTREAL , TIME , SORSUM , ITER 
COMMON/BL16/  CONST1 , C0NST2 , CONST3 , C0NST4 , CONST6 , NT , UO , H , UGRT , BUOY , 
&  CPO , PRT , CONDO , VISO , RHOO , HR , TR , TA , DTEMP . TWRITE , TTAPE , TMAX , GC , RAIR 
COMMON/BL22/ICHPB (10) ,NCHPI(10) , JCHPB(IO) , NCHP J ( 10 ) , KCHPB ( 10 ) , 

&  NCHPK(IO) ,TCHP(10) , CPS (10) , CONS (10) 
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COMMON/BL37/  VIS (22 , 16 , 32 ) , COND (22,16,32), NOD (22,16,32), RWALL ( 560 ) 
&  , CPM(22 ,16,32) ,HSZ(3 , 2 ) ,NHSZ(22 ,16,32) , RES0RM(93 ) 

DO  402  N=1 .NCHIP 
IS=ICHPB(N) 

IE= I B+NCHP I ( N ) - 1 
JB=JCHPB ( M ) 

JE=JB+NCHPJ (N) -1 
K3=KCHPB(N) 

KE=KB+NCHPK(N) -1 
DO  405  I=IB , IE-1 
DO  405  J=JB , JE-1 
DO  405  K=KB , KE-1 
COND ( I , J , K) =CONDO*CONS (N) 

CPH(I , J,K)=CPS(N) 

NOD ( I , J , K )=1 

IF  (J.EQ.NJ)  COND (I ,NJP1 ,K)=COND(I ,NJ,K) 

IF  (I.EQ.2)  COND  1 , J , K)=COND ( 2 , J ,K) 

IF  (I.EQ.NI)  COND (HI PI , J , K ) =COND (NI , J, K) 

IF  (I.EQ.2. AND . J , EO . NJ )  COND ( 1 , J+l , K)=COND(2 , J , K) 

IF  (I.EQ.NI. AND. J.EQ.NJ)  C0ND(NIP1 , J+l ,K)=COND(NI , J,K) 

IF  (J.EQ.NJ)  CFM(I,NJP1,K)=CPM(I,NJ,K) 

IF  (I.EQ.2)  CPM ( 1 , J , K ) =CPM ( 2 , J , K ) 

IF  (I.EQ.NI)  CPM ( NIP 1  ,J,K)=CPtl(NI,J,K) 

IF  (I.EQ.2. AND. J.EO.NJ)  CPM( 1 , J+l , K)=CPM(2 , J , K) 

IF  (I.EQ.NI. AND. J.EQ.NJ)  CPM (NIP 1 , J+l , K)=CPM(NI , J , K) 

405  CONTINUE 
402  CONTINUE 
RETURN 
END 


***  x  +  K-n-kjrK-xi'yrx-xifKXIck-k-Ki'iririfxJfxnifxfijck  £&7c  +  *  +  :W7c+***;*?lc  +  ***x**  +  yt:**A**:K*  +  *  ***** 

SUBROUTINE  PTRACK 

***rr**i':***r*x*+*  ******+********  +  ******+*******+***  +  +  ********  +  ****  ***** 

COMMON/ BL14/HC0EF , TINF , CNT , ABTURB , BTURB , VISL , VISMAX , QCORRT , PM1 , PM2 
COMMON/ BL1 6/  CONST1 , CONST2 , CONST3 , CONST4 , CONST6 , NT , UO , H , UGRT , BUOY , 

&  CPO , PRT , CONDO , VISO , RHOO , HR , TR , TA , DTEMP , TWRITE . TTAPE , TMAX , GC , RAIR 
COMMON/BL32/  T( 22 , 16 , 32 ) , R(22 , 16 , 32) , P ( 22 , 16 , 32) 

&  , C(22 , 16 , 32 ) , U (22 ,16,32) , V(22, 16,32) , W(22,16,32) 

CCMMON/BL34/  HEIGHT(22 , 16 , 32) , REO( 22, 16,32) . 

&  SMP(22 ,16.32) , SMPP ( 22 , 16, 32), PP (22, 16, 32), 

&  DU( 22 , 16 , 32 ) ,DV(22,16,32),DW(22,16,32) 

COMMON/BL39/ALEW , PCURVE , CONSRA , PCURM1 , PSOUTH , QCORR , PERROR 

CC  **  THE  FOLLOWING  PRESSURE  TEST  IS  A  TEMPORARY  MEASURE  TO  MODIFY  THE 
CC  HEAT  INPUT  TO  FORCE  THE  CALCULATED  PRESSURE  TO  AGREE  WITH  THE 
CC  EXPERIMENTAL  PRESSURE.  IT  WILL  BE  USED  UNTIL  ACCURATE  HEAT  INPUT 
CC  **  IS  RECEIVED. 

CC 

PSOUTH=P (10,9,16) *C0NST1+REQ( 10 , 9,16) 

PERROR=(PCURVE-PSOUTH) /PCURVE 
QCORR=l . O+PERROR- ( PS0UTH-PM1 ) /PCURVE 

QCORR=l . O+PERROR- ( PSOUTH-PM1 ) /PCURVE+ ( PSOUTH-PM1 ) / (P CURVE -PCURM1 ) * 
&  (PCURVE-PM1 ) /PCURVE 
QCORRT=QCORRT*QCORR 
PCURM1=PCURVE 
PM1=PS0UTH 
C 

RETURN 
END 


***  Jt-kT'-niKiKi'-k-X'Ki'ir-x  ***•*•**  it -Trek  *  -fr**  •*  ■***■* '***■% -k  •***  it -k  * -k  *  it  *  it  itimls'k-k'kitit'k'fc -kit  it -kit 


SUBROUTINE  TCP 

■k’k'k  iKi^ir^^iKi^iiiKi^i^i^if’k'k'k'k'k'k’k'k'k'k'k'k'k'k'k’k'k'k’k'k'k’k'k’k'k'k-k'k'k'k'k'k-k'k'k-k-k'k'k-k'k'k'k'k'k'k-k'k'k'k'k'k'k'k-k'k 
k  ************ ************************;**&■*:**■}(:+:***:*:*£*******■& ******■}<;•&** *** 

*  THIS  SUBROUTINE  CALCULATES  THE  TEMPERATURE  AT  THE  TERMOCOUPLE  * 


'AW.-r. 


******  A**********************************************************’1'****** 

C0MM0N/R4/XC ( 93 ) , YC ( 93 )  ZC ( 93 ) , XS ( 93 ) , YS ( 93 )  ZS < 93 )  , 

&  DXXC ( 93 ) , DYYC^93 ) , DZZC ( 93 ) , DXXS (93 ) , DYYS (93 ) ,DZZS(93 

C0MM0N/BL16/  C0MST1 , COM5T2 , C0NST3 , C0MST4 , C0NST6 , NT , UO , H , UGRT , 3U0Y , 
&  CPO  ,  PRT ,  CONDO  ,  VISO  ,  RHOO  ,  HR  ,  TR  ,  TA ,  DTEI1P ,  TWRITE  ,  TTAPE  ,  TMAX ,  GC ,  RAIR 
COMMON/ BL32/  T(22 , 16 , 32) ,R( 22 , 16 , 32 ) ,P(22 , 16 , 32) 

&  ,0(22,16,32) ,U(22,16,32) ,V(22, 16,32) ,W(22,16,32) 

COMMON/ BL3 3/ MTHCO , CX( 12 ) , CY( 12) , CZ( 12 ) ,NTH( 12 , 3 ) ,TCOUP( 12) 


DO  5100  N=1 ,NTHCO 
II=NTH(N,1) 

JJ=NTH(N , 2 ) 

V0L=ABS?(XC(II+1)-XC(II))*(YC(JJ+1)-YC(JJ))*(ZC(KK+1)-ZC(KK))) 

TCOUP(N)=0. 

DO  5101  1=11,11+1 
111=11+11+1-1 
DO  5101  J=JJ,JJ+1 
JJJ=JJ+JJ+1-J 
DO  5101  K=KK , KK+1 
KKK=KK+KK+ 1 -K 

WVOL=ABS((XC(I)-CX(N))*(YC(J)-CY'W; )*(ZC(K)-CZ(N)))/VOL 
TCOUP ( N ) =TCOUP(N ) +WVOL*T ( I I I , J J J , KKX ) 

5101  CONTINUE 

TCOUP(N)=TCOUP(N) *TR-273 . 18 


5100  CONTINUE 


RETURN 

END 


aj^a^s'***^*^**************************^************ 

******* J*******i**2**********************************************- 


COMMON/BL1/DX , DY , DZ , VOL , DTI ME , VOLDT , THOT , TCOOL , PI , Q 
COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK,NKP1 ,NKM1 
&  , NIP2 , NJP2 , NKP2 ,NA , NAP1 , NAM1 , NB , NBP1 , NBM1 , KRUN , NCHIP ,NJRA,NWRP 

C0MM0N/BL12/  NWRITE ,MTAPE , NTMAXO ,NTREAL , TIME , SORSUM, ITER 
COMMON/ BL1 4 /HCOEF , TINF , CNT , ABTURB , BTURB , VISL , VISMAX , OCORRT , PM1 , PM2 
C0MM0N/BL16 /  CONST1 , CONST2 , CONST3 , C0NST4 , CONST6 , NT , UO , H , UGRT , BUOY , 
&  CPO , PRT , CONDO , VISO , RHOO , HR , TR , TA , DTEMP , TWRITE  TTAPE , TMAX , GC , RAIR 

(nr  /  -Tt  /  O  O  1/-  n  /  O  O  1  ^  C.  ^  ^  1 


<  CPU  ,  rKI  ,  lunuu  ,  v  idu  ,  khuu  ,hr(  in,  ia,  ui&nr 
COMMON/BL32/  T( 22 , 16 , 32) , R ( 22 , 16 , 32} , P ( 22  16 ,32) 
i  ,C(22,16,32) ,U?22, 16,32 ) ,vf22, 16,32 ),W(22, 16, 32) 

COMMON/BL34/  HEIGHT( 22 , 16  32 ) , REO(22 , 16 , 32) , 

«  SMP(22 ,16.32), SMPF ( 22 ,16,32) ,PP(22,16,32) , 

*COMMON/BL37/6vil  (22Vil^  32^ ',  CONI)1?  2 ^  1 6.1, 3  2  )  2  NOD  ( 2  2 , 16 , 32)  RWALL(560) 

/  ■>*  a  /  «  »  i  n  n^Ttnui  ne  AITTU  APODD  DTDDr 


Lunnuw/  oljo  /  iMinv^vj  /  /  v  a*.  ,  ^  * 

COMMON/ BL39/ALEW , PCURVE , CONSRA , PCURM1 , PSOUTH , QCORR , PERROR 

XTIME=TIME*H/U0 

IF(  NN  .EQ.  1)  THEN 


WRITE (6 , 500 )  XT I ME , NTREAL , TIME , ITER , RESORM ( ITER ) , SORSUM , Q 
500  FORMAT (IX,  1 TIME= 1 , F7 . 3 , 1  S 1 , IX, 'NTREAL=' , 19 , IX, 

—  .  —  «.*«•  _  ■  mmrm  I  yrtv  I  1  V  —  I  TO  1  V  1C  A11T5  rr  —  4 


i  V1U  lO  *  \  *  **  »*-*  f  “  »  '  —  '  -  r 

Sc  1  TIME='  , F7 . 2 , 1  <0>  1  ,  IX ,  ’  ITER= '  ,12  ,  IX,  1  S0URCE='  , 
&  F9 . 6 , IX, 1 SORSUM= 1 , F9 . 6 , IX, 1  Q(KW)  =  ',F10.4) 


QKW  =  ((60. *60. )/(3. 412*1000.))*  Q 
PRINT  * 

PRINT  *,  '  PCURVE  PSOUTH 

&CRR  QCORRT  0  1 

PRINT  *,  PCURVE, PSOUTH, PERROR, QCORR, 
PRINT  * 


PERROR 


QCORRT, QKW 


ELSE  IF (  NN  .EQ.  2  )  THEN 
PRINT  * 


>  .V.V,\  . 


nnnn 


PRINT  TEMPERATURES  AT  THERMOCOUPLE  POSITION  IN  (C) ' 

WRITE  (6,*)  (TCOUP(N) ,  N=1 , NTHCO) 

PRINT  * 

PRINT  * 

ELSE 

DO  502  L=16 , 16 
K=L 

DO  502  M=1,NIP1 
I=M 

WRITE(6 , 504)  I,K 

504  FORMAT ( / , 2X , ' 1= 1 , 12 . 5K . ' K= 1 , 12 , / , I0X, 1  T  NOD' , 3X , 1 R(GM/C .C . ) 1 ,2X, 
&  ' U ( CM/ SEC ) ' , 2X . 1 V (CM/SEC ) 1 , 2X , 1 W(CM/SEC) ' , ' P  (ATM) 1 ,5X, ' SMP 1 ,5X, 
Sc  1  VIS(SEC/CM-CM)  '  ,3X,  '  COND(SEC/CM-CM)  1  ,  '  XSMP  1  ,  /  ) 

513  DO  503  J=1 , NJP1 
C  XTEMP=T (I ,  J , K) /C0NST3-273 .16 

XTEMP=T ( I , J , K ) 

C  XR=R( I , J ,K)*RHOO/2 . 2043  *1000.*(0.0328)**3 

XR=R(I, J,K) 

XU=U(I,J,K)*CONST6 
XV=V(I, J,K)*CONST6 
XW=W(I, J,K)*CONST6 

XP=(P(I, J,K)*C0NST1+REQ(I,J,K)*PINT) 

XP=P(I,J,K) 

XU=U( I , J ,K) 

XV=V(I, J,K) 

XW=W ( I , J , K+l ) 

CC  XVIS=VIS(I, J,K)*RHOO*CPO*H*UO*1. 48814 

CC  XCOND=COND (I , J,K) *RHOO*CPO*H*UO*1 . 48814 

XVIS=VIS(I, J,K)/VIS0 
XCOND=COND ( I , J , K) /VISO 
XSMP=SMPP ( I , J , K) 

DDYY= 1 . / FLOAT (NJM1-2) 

PE  =SQRT(U(If J,K)**2+V(I, J,K)**2+W(I, J,K)**2)*DDYY/COND(I, J,K) 
WRITE ( 6 , 511 ) J , XTEMP , XR, XU , XV , XW , XP , SMP ( I , J , K) , XVI S , XCOND , XSMP 
511  FORMAT ( 2X, 1 J= 1 , 13 , 2X, F6 . 3 , 2X, F6 . 3 , 2X , F7 . 3 , 2X, F7 . 3 , 3X, F7 . 3 , 3X 
&  , F12 . 3 , 3X , F9 . 6 , 2X , F6 . 2 , 2X , F6 . 2 , 2X , F6 . 3 ) 

503  CONTINUE 
502  CONTINUE 
END  IF 
RETURN 
END 
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